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ERRATA 



The following information, pertinent to system interfacing, was omitted from 
Chapter 2 (Installation). Please make the appropriate notations within the chapter 
to compensate for the omissions. 

In section 2-7 (Intellec Series II Model 210) on page 2-2, the following paragraph 
should be added: 

When interfacing the iSBC 86/12 to the Intellect Serial 1 port (CRT opera- 
tion), jumper 51-52 (which connects the RTS output to the CTS input) must 
be installed on the iSBC 86/12. When interfacing the iSBC 86/12 to the 
Intellec's Serial 2 port (teletypewriter operation), jumper 51-52 on the iSBC 
86/12 must be removed. Note that jumper 51-52 is not installed on units 
shipped from the factory. 

In section 2-8 (Intellec Series II Model 220/230) on page 2-2, the following sentence 
should be added: 

On the iSBC 86/12, jumper 51-52 (which connects the RTS output to the 
CRT input) must be installed. 

In section 2-9 (Intellec 800 TTY Channel) on page 2-4, the following note should be 
added to figure 2-3, iSBC 86/12 to Intellec 800 TTY Channel Cabling: 

When installing the TTY UP/DOWN LOAD interface cable (P/N 
4002125), the cable connector designated "PI" is inserted into the iSBC 530 
TTY adapter, and the cable connector designated "Jl" is inserted into the 
Intellec's TTY channel connector. 

Also in section 2-9 and in section 2-10 (Intellec 800 CRT Channel), the following 
note should be added to the paragraphs describing the installation of additional 
components: 

When installing the SBC-902 resistor packs, be certain to align pin 1 of the 
resistor pack (usually denoted by a black dot) with pin 1 of the correspond- 
ing socket. When installing the Status Adapter Board assembly (PWA 
1002129), be sure that pin 1 of the assembly aligns with pin 1 of socket Al 1. 
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TOP VIEW 

In section 2-10 (Intellec 800 CRT Channel) on page 2-5/2-6, add the following 
sentence: 



Jumper 51-52 on the iSBC 86/12 must be removed. 




PREFACE 



This manual provides general information, interfacing instructions, and program- 
ming information for the Intel iSBC 957 Intellec— iSBC 86/12 Interface and Execu- 
tion Package. Additional information is available in the following documents: 

• Intel 8086 Assembly Language Programming Manual, Order Number 9800640 

• Intel ISIS-II User's Guide, Order Number 9800306 

• Intel iSBC 86/12 Single Board Computer Hardware Reference Manual, Order 
Number 9800645 

• Intel MCS-86 User's Manual, Order Number 9800722 

• PL/M-86 Programming Manual, Order Number 9800466 

• ISIS-II PL/M-86 Compiler Operator's Manual, Order Number 9800478 

• ISIS-II 8086 Cross Development Utilities Operator's Manual, Order Number 
9800639 
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CHAPTER 1 
GENERAL INFORMATION 



1-1. Introduction 

The iSBC 957 Intellec-iSBC 86/12 Interface and Execution Package provides the 
hardware and software required to interface an iSBC 86/12 Single Board Computer 
with an Intel Intellec Microcomputer Development System. 



1-2. Description 

The Interface and Execution Package consists of the following: 

a . Loader software and monitor ROM's. 

b . Four cable assemblies . 

c . Teletype adapter . 

d . Line drivers and terminators (associated with input/output) . 

Also supplied are four iSBC 901 Resistor Packs and four type 7437 line driver in- 
tegrated circuits. These components, which are not used with the implementation of 
this package, are supplied for the user's own purpose; refer to paragraph 2-!0 in the 
iSBC 86/12 Single Board Computer Hardware Reference Manual, Order No. 
9800645. 

The loader provides the software link between the Intellec system and the iSBC 
86/12. The loader is provided on diskettes and operates under ISIS-II control. The 
cables, teletype adapter, and line drivers and terminators support the different iSBC 
86/Intellec configurations. Cornplete instructions for interfacing the iSBC 86/12 
with each of the Intellec models are provided in Chapter 2 and operation informa- 
tion is given in Chapter 3 . Programming information is presented in Chapter 4 and 
the iSBC 86/12 monitor source listing is provided in Appendix A. 



1-3. Equipment Supplied 



A list of the equipment supplied with the Interface and Execution Package is pro- 
vided in table 1-1. 
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Table 1-1 . Equipment Supplied 



Part Number 



Quantity 



Description 



9500043 

9700039 

9100171 
9100172 
9100173 
9100174 
4000977 
1002129 

4500644 
4500645 
54-068 
4002127 

4002287 
4000677 

4002125 

84-009 
9800743 

9800645 

9800640 



4*. 
4** 

4 



Single Density Diskette containing ISIS-II iSBC 86/12 
Loader 

Double Density Diskette containing ISIS-II iSBC 86/12 
Loader 

I.C., Intel 2716 EPROM (Monitor Program) 

I.C., Intel 2716 EPROM (Monitor Program) 

I.C., Intel 2716 EPROM (Monitor Program) 

I.C., Intel 2716 EPROM (Monitor Program) 

iSBC 530 Teletype Adapter 

Status Adapter (printed circuit board with 14 pins arranged 
to plug into integrated circuit socket) 

iSBC901 Resistor Pack, Pull up/Pull Down 

iSBC 902 Resistor Pack, Pull Up 

I.C., 7437, quadruple 2-input positive-NAND buffers 

Cable Assembly, RS232C Up/Down Load (round cable with 
25-pin male connector at each end) 

Cable Assembly, Parallel Up/Down Load (flat cable with 
50-pin edge connector at one end and an adapter to 25-pin 
male connector at other end) 

Cable Assembly, OEM RS232C Input/Output (flat cable with 
26-pin edge connector at one end and 25-pin RS232C con- 
nector at other end) 

Cable Assembly, TTY Up/Down Load (round cable 25-pin 
male connector at each end) 

Screw, panhead, 4-40 x 0.25 inch 

iSBC 957 Intellec-iSBC 86/12 Interface and Execution 
Package User's Guide 

iSBC 86/12 Single Board Computer Hardware Reference 
Manual 

Intel 8086 Assembly Language Programming Manual 



Note: iSBC 901 Resistor Packs and 7437 IC's are not used in the implementation of 
the Interface and Execution Package. These parts are supplied to use at your 
discretion. 

* Assembly drawings supplied with cable assemblies. 

** Schematic diagrams supplied with resistor packs. 
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CHAPTER 2 
INSTALLATION 



2-1. Introduction 

This chapter provides information for configuring and interfacing the Interface and 
Execution Package with the Intellec system. The iSBC 86/12 Single Board Com- 
puter must be connected to the spare serial interface channel on the Intellec system. 
Therefore, the hardware requirement depends on the type (model) of Intellec system 
and the console device (CRT or teletypewriter) in use. 

2-2. General Configuration 

The iSBC 86/12 Single Board Computer should be installed in a chassis other than 
that of the Intellec system. The use of the iSBC 86/12 in the Intellec system chassis is 
not recommended and is not supported. 

2-3. iSBC 86/12 Jumpers/Switches 

Except where noted otherwise in this chapter, the general jumper and switch re- 
quirements for configuring the ROM/EPROM, Timer Input Frequency (Counter 
2) and Serial I/O Port are the default (factory) configurations as defined in the 
following subparagraphs. Refer to the iSBC 86/12 Single Board Computer Hard- 
ware Reference Manual, Order No. 9800645, for details. 

ROM/EPROM Configuration 

The ROM/EPROM default jumpers and switches for the iSBC 86/12 and iSBC 
86/12S are as follows: 



iSBC 86/12 


iSBC86/12S 


Jumpers 


Switch S1 


Jumpers 


Switch S1 


94-96 
97-98 


8-9 (closed) 
7-10 (open) 


94-95 
98-99 


8-9 (closed) 
7-10 (open) 



Timer (Counter 2) Input Frequency 

The 8253 input frequency for Counter 2 (8251 Baud Rate Clock) is 1.23 MHz. This 
is selected by default jumper 54-55. 

Serial I/O Port Configuration 

The serial I/O port default jumpers are as follows: 

Jumpers In 

39-40 

42-43 
W1 (A-B) 
W2 (A-B) 
W3 (A-B) 
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Time Out Option 

Inadvertent attempts to access non-existent memory will cause the 8086 CPU to 
hang up in a wait state. If it is desired to prevent such a hang up, connect jumper 5-6 
to enable the failsafe timer. (Jumper 5-6 is not connected at the factory.) 

Priority Interrupts 

The default (factory installed) jumpers (posts 74 through 81) connecting interrupt 
inputs to the 8259A Programmable Interrupt Controller (PIC) should be removed 
unless the user program is expecting them. 



2-4. iSBC 86/12 Monitor Program 

The Monitor Program resides in the four 2716 EPROM's. Install these four chips in 
the iSBC 86/12 as follows: 

Part No. Socket 

9100171 A28 

9100172 A46 

9100173 A29 

9100174 A47 

2-5. Intellec System Jumpers 

Ensure that any I/O port (channel) of the Intellec system to be connected to the 
iSBC 86/12 has all default (factory) jumpers connected. Refer to the applicable 
Intellec system manual. During its initialization sequence, the loader reprograms the 
Intellec USART to the iSBC 86/12 for 9600 baud and assumes the jumpers are con- 
figured as shipped from the factory. (Exception: The Intellec 800 TTY channel is 
not programmed.) 

2-6. System Interfacing 

The following paragraphs describe the interfacing required between the iSBC 86/12 
and the various Intellec systems. 

2-7. Intellec Series II Model 210 

The Intellec Series II Model 210 must be upgraded with disk drives in order to use it 
with the Interface and Execution Package. 

The iSBC 86/12 interfaces to the Serial 1 or Serial 2 port (channel) of the Intellec 
Series II Model 210. If the Intellec console is a CRT device, the Serial 1 port is used; 
if the console is a teletypewriter, the Serial 2 port is used. Connect the cables as 
shown in figure 2-1 . Secure the RS232C connector to the Intellec chassis using two 
4-40 panhead screws. 



2-8. Intellec Series II Model 220/230 

The iSBC 86/12 interfaces to the Serial 1 Port of the Intellec Series II Model 220 or 
Model 230. Connect the cables as shown in figure 2-2. Secure the RS232C connector 
to the Intellec chassis using two 4-40 panhead screws. 
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COMPONENT 
SIDE 







— ll 



31 



OEM RS232 I/O 
4000677 



JRS232 UP/DOWN LOAD 1 " 
4002127 



INTELLEC 
SERIES II 
MODEL210 



SERIAL 2 
(TTY) 



SERIAL 1 
(CRT) 



•PIN 2 OF iSBC 86/12 IS ON 
SOLDER SIDE OF BOARD. 

• • INSTALL CABLE SO THAT 
PIN 1 ON CABLE CONNECTOR 
MATES WITH PIN 2 ON iSBC 86/12 
EDGE CONNECTOR. 



Figure 2-1 . iSBC 86/12 to Intellec Series II Model 210 Cabling 



COMPONENT 
SIDE 



\ 




I 



T 



OEM RS232 I/O 

4000677 



IRS232 UP/DOWN LOAD 
4002127 



INTELLEC 
SERIES II 

MODEL 220/230 



•PIN 2 OF iSBC 86/12 IS ON 
SOLDER SIDE OF BOARD. 

• • INSTALL CABLE SO THAT 
PIN 1 ON CABLE CONNECTOR 
MATES WITH PIN 2 ON iSBC 86/i2 
EDGE CONNECTOR. 



Figure 2-2. iSBC 86/12 to Intellec Series II Model 220/230 Cabling 743-2 
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2-9. Intellec 800 TTY Channel 

The iSBC 86/12 interfaces to the TTY channel of the Intellec 800 when the Intellec 
console is a CRT device. In this configuration, there are two operating modes 
available. One mode uses the iSBC 86/12 serial I/O port only; the other mode uses 
the iSBC 86/12 serial I/O port and a parallel interface. 

The parallel interface provides a slightly higher transmission rate for loading files 
than is possible with the Intellec 800 CRT channel and, therefore, the parallel inter- 
face is used only with the load and transfer commands. This requires the use of the 
8255A Programmable Peripheral Interface on the iSBC 86/12. 

To provide the proper electrical connection (protective ground) for the serial I/O 
port, install a jumper between posts 63 and 64 (near edge connector J2) and the iSBC 
86/12. 

The iSBC 86/12 requires the installation of additional components and the 
modification of default (factory configured) jumpers if the parallel interface is used. 
Install the components and change the default jumpers as described below. 



Install Component 



Location 



iSBC 902 Resistor Pack 
Status Adapter Board 



A10, A12.A13 
A11 



Remove Jumper 



Add Jumper 



21-25 
13-14 
32-33 
26-27 
19-20 
30-31 



25-31 
18-31 
14-30 
20-33 
13-27 



After the iSBC 86/12 is configured, connect the cables as shown in figure 2-3. Secure 
the connectors to the iSBC 530 TTY Adapter chassis using four 4-40 panhead 
screws. (Two screws per connector.) Secure the connectors to the Intellec chassis us- 
ing four 4-40 panhead screws. (Two screws per connector.) 




UPP 

CHANNEL 



•PIN 2 OF iSBC 86/12 IS ON 
SOLDER SIDE OF BOARD. 

"INSTALL CABLE SO THAT 

PIN 1 ON CABLE CONNECTOR 
MATES WITH PIN 2 ON iSBC 86/12 
EDGE CONNECTOR. 



Figure 2-3. iSBC 86/12 to Intellec 800 TTY Channel Cabling 
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2-10. Intellec 800 CRT Channel 

The iSBC 86/12 is interfaced to the CRT channel of the Intellec 800 when the 
Intellec console is a teletypewriter. In this configuration there are two operating 
modes available. One mode uses the iSBC 86/12 serial I/O port only; the other 
mode uses the iSBC 86/12 serial I/O port and a parallel interface. 

The parallel interface provides a much faster transmission rate for loading files than 
is possible with the Intellec 800 TTY channel and, therefore, the parallel interface is 
used only with the load and transfer commands. This interface requires the use of 
the 8255A Programmable Peripheral Interface on the iSBC 86/12. 

The iSBC 86/12 requires the installation of additional components and the 
modification of default (factory configured) jumpers if the parallel interface is used. 
Install the components and change the default jumpers as described below. 



Install Component 


Location 


iSBC 902 Resistor Pack 


A10.A12, A13 


Status Adapter Board 


A11 


Remove Jumper 


Add Jumper 


21-25 


25-31 


13-14 


18-31 


32-33 


14-30 


26-27 


20-33 


19-20 


13-27 



30-31 

After the iSBC 86/12 is configured, connect the cables as shown in figure 2-4. Se- 
cure the connectors to the Intellec chassis using four 4-40 panhead screws. (Two 
screws per connector.) 



COMPONENT 
SIDE 



PARALLEL UP/DOWN LOAD 
4002287 




X 



OEMRS232I/0 
4000677 



-tJJRS232UP/i 



UP/DOWN LOAD 1 - 
4002127 



INTELLEC 800 



UPP 
CHANNEL 



CRT 
CHANNEL 



•PIN 2 OF iSBC 86/12 IS ON 
SOLDER SIDE OF BOARD. 

•■INSTALL CABLE SO THAT 
PIN 1 ON CABLE CONNECTOR 
MATES WITH PIN 2 ON iSBC 86/12 
EDGE CONNECTOR. 



Figure 2-4. iSBC 86/12 to Intellec 800 CRT Channel Cabling 
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CHAPTER 3 
OPERATION 



3-1. Introduction 

This chapter provides operating instructions for the Interface and Execution 
Package The loader provides commands for loading programs into the iSBC 86/12 
from an Intellec system and for transferring programs from the iSBC 86/12 to an In- 
tellec system. The loader also supports the debug commands provided by the iSBC 
86/12 on-board monitor. 

3-2. Start-Up Procedure 

The iSBC 86/12 loader program requires an Intellec system with 32K bytes of 
memory. The loader program is loaded from ISIS-II by invoking the program 
SBC861 when ISIS prompts for a command as follows: 

-:Fn:SBC861 

ISIS-II ISBC 86/12 LOADER, Vx.x 

where :Fn: specifies the drive number and x.x denotes the current version of the 
loader program. 

After the sign-on message appears, power-on or reset the iSBC 86/12. Then type the 
character "U" on the keyboard twice in order for the on-board monitor to deter- 
mine the baud rate of the interface. When the baud rate has been successfully deter- 
mined, the monitor sign-on message 

ISBC 86/12 MONITOR, Vx.x 

is output to the console. When the monitor is ready, it will prompt with a period "." 
at the beginning of a new line. 



NOTE 

If random characters are displayed, the incorrect baud rate was determined 
by the on-board monitor. In this case, reset the iSBC 86/12 and again type 
the character "U" twice. 

3-3. Command Structure 

The loader prompts with a period "." when it is ready for a command. You can then 
enter a command line, which consists of a one- or two-character command followed 
by zero, one, or more arguments. The command may be separated from the first 
argument by an optional single space; a single comma is required as a delimiter be- 
tween arguments. The command line is terminated by a carriage return or a comma 
depending on the command, and no action takes place until the command ter- 
minator is sensed. You can cancel a command before entering the command ter- 
minator by pressing any illegal key (e.g., rubout or Control-X). 

Only uppercase letters and digits may be used in the commands and arguments. 
Numeric arguments can be expressed as a number, the contents of a register, or the 
sum or difference of numbers and register contents. Thus, addresses and data can be 
expressed as follows: 
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<addr>::= [<expr>:]<expr> 

<expr>::= <number>\<register>\<expr> { + |-} <number>\ 
<expr> {+]-} <register> 

<register>::= AX|BX|CX|DX|SP|BP|SI|Di|CS|DS|SS|ES|IP|FL 

<number> : : = <digit>\<digit><number> 

<digit>::= 0|1|2|3|4|5|6|7|8|9|A|B|C|D|E|F 

Numeric fields within arguments are entered as hexadecimal numbers. The valid 
range of numerical values is from 0000-FFFF. Larger numbers may be entered, but 
only the last four digits (or two in the case of byte values) are significant. Leading 
zeros may be omitted. 

Whenever word values are displayed, the contents of the high address location is 
displayed followed by the contents of the low address location. Similarly, when 
entering word values, the high byte is followed by the low byte. If necessary leading 
zeros will be appended to the value by the monitor. 

An address argument consists of a segment value and an offset value separated by a 
colon (:). If a segment value is not specified, the default segment value is the CS 
register value except where noted otherwise in the command description. 

NOTE 

Since the commands are not line oriented, the 
loader cannot execute under the ISIS-II SUB- 
MIT facility. 



3-4. Errors 

Each character input to the monitor is checked for validity. An erroneous entry 
causes the monitor to type a "#" and prompt for a new command by outputting "." 
on a new line. The monitor detects an attempt to modify EPROM or non-existent 
RAM by writing the data, reading it back, and then comparing the values. If the 
iSBC 86/12 board is not jumpered to provide a timeout when non-existent RAM is 
accessed, then the system will hang. (Refer to Chapter 2.) 

If an error occurs when attempting to access an ISIS-II file, the error number 
is displayed and the command is aborted. After a non-fatal error, the monitor 
prompts for a new command. A fatal error results in a return to ISIS. 

3-5. Control Characters 

Control characters are used to start and stop the output or execution of the D, X, C, 
F, and W commands. Control-S is used to temporarily stop the operation of a com- 
mand; Control-Q is used to resume the operation of the command. Control-C is 
used to abort the operation. After a Control-S, the only acceptable characters are 
Control-Q and Control-C. 

3-6. 8086 CPU Registers 

The 8086 CPU, which is the heart of the iSBC 86/12, includes the 14 registers listed 
in table 3-1. These registers are referenced in the command syntax in their ab- 
breviated form. 
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Table 3-1 . 8086 CPU Registers 



Register Name 


Abbreviation 


Accumulator 


AX 


Base 


BX 


Count 


CX 


Data 


DX 


Stack Pointer 


SP 


Base Pointer 


BP 


Source Index 


SI 


Destination Index 


Dl 


Code Segment 


CS 


Data Segment 


DS 


Stack Segment 


SS 


Extra Segment 


ES 


Instruction Pointer 


IP 


Flag 


FL 



3-7. Command Descriptions 

This section describes the 14 loader and monitor commands listed in table 3-2. The 
syntax conventions used in the command structure are as follows: 

[A] indicates that "A" is optional 

[A]* indicates one or more optional iterations of "A" 

<B> indicates that "B" isavariable 

JA|B) indicates "A" or "B" 

<cr> indicates a carriage return is entered 

The following paragraphs describe the 14 commands and provide error conditions 
and examples where appropriate. In the examples, the loader/monitor outputs are 
underscored. 



Table 3-2. Monitor Command List 



Command 


Function and Syntax 


L 


Load Hex Object File 


Loads hexadecimal object file from Intellec into iSBC 
86/12 memory. 

L { S|P } ,<filename>[,<bias addr>]<cr> 


T 


Transfer Hex Object File 


Transfers block of iSBC 86/12 memory to Intellec as a 
hex object file. 

T[X] |s|p} ,<startaddr>,<end addr>,<filename> 
[,<exec addr>]<cr> 


E 


Exit 


Exits the loader program and returns to ISIS. 
E<cr> 


N 


Single Step 


Executes one user program instruction. 
N [<addr>] , [ [<addr>] , ] ' <cr> 


G 


Go 


G[<start addr>][,<break 1 addr> 

[ , <break 2 addr>] )<cr> 
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Table 3-2. Monitor Command List (Cont'd.) 



Command 


Function and Syntax 


S 


Substitute Memory 


Displays/modifies memory locations 
S[W]<addr>,[[new contents],]' <cr> 


X 


Examine/Modify Register 


Displays/modifies 8086 CPU registers. 
X[<reg>][[<new contents>],]'<cr> 


D 


Display Memory 


Displays contents of a memory block. 
D[\N]<start addr>[,<end addr>]<cr> 


M 


Move 


Moves contents of a memory block. 

MOtart addr>,<end addr>,<destination addr><cr> 


C 


Compare 


Compares two memory blocks. 

CKstart addr>,<end addr>,<destination addrxcr> 


F 


Find 


Searches a memory block for a constant. 
F[\N]<startaddr>,<endaddr>,<dataXcr> 


H 


Hex Arithmetic 


Performs hexadecimal addition and subtraction. 
H<data 1>,<data2Xcr> 


1 


Port Input 


Inputs and displays data from input port. 
\[\N]<portaddr>,[,]'<cr> 





Port Output 


Outputs data to output port. 
0[\N]<portaddr>,<data>[,<data>Y<cr> 



3-8. Load Hexadecimal File (L) 

Function 

This command (L) loads a hexadecimal object file into the iSBC 86/12 system from 
the Intellec system. 

Syntax 

L {s|P j ,<filename>[,<bias addr>]<cr> 

where S=serial mode and P=parallel mode. 

Operation 

The first argument { S|P } specifies which interface is used: serial (S) or parallel 
(P). The parallel mode is not supported on an Intellec Series II. The user then enters 
the filename specifying a file in the 8086 or 8080 hexadecimal object file format. The 
data read from the file is output to the iSBC 86/12 where it is loaded into the loca- 
tions specified by the extended address records and load address fields. If the file is 
in 8080 format, the data is loaded into memory locations relative to 0. 

If an optional bias addr is specified, its segment value is added to each extended ad- 
dress record in the file and its offset value is added to each offset address in the file, 
thus forming a new load address. For an 8080 file, the segment value specified is 
added to the default segment value 0. If no segment value is specified in the bias 
addr, then is used as the segment value for the bias. 
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If the file is in 8086 format and includes an 8086 execution start address record, then 
the CS and IP registers are set to the values specified in the record. However, if the 
file is in 8080 format and the end-of-file record includes an 8080 execution start ad- 
dress, then the IP register is set to this value and the CS register remains unchanged. 
Thus, a subsequent Go (G) or Single Step (N) command uses the address specified in 
the file unless modified by the user. 



Error Conditions 

The following error conditions are associated with the Load (L) command: 

(1) Attempt to store into EPROM or non-existent RAM. 

(2) ISIS-II type (1 -99) errors . 

(3) "P" specified in first argument on Intellec Series II. 

(4) Timeout. 

(5) Checksum error. 



Example 

Load file :F1 :ABC.HEX into iSBC 86/12 memory using the serial interface: 

.L S.:F1:ABC.HEX<cr> 



3-9. Transfer Hexadecimal File (T) 



Function 



This command (T) transfers the contents of a block of memory in the iSBC 86/12 
system to a hexadecimal object file in the Intellec system. 



Syntax 

T[X] |s|p| ,<startaddr>,<endaddr>,<filename>[,<execaddr>]<cr> 
where T=8086 format and TX=8080 format. 



Operation 

The first argument { S|P } specifies which interface is used: serial (S) or parallel 
(P). The parallel mode is not supported on the Intellec Series II. The source loca- 
tions are specified by the start addr and end addr. The destination is specified as the 
filename of an ISIS-II file. The on-board monitor outputs the data in 8086 or 8080 
hexadecimal object file format. The user may optionally enter the exec addr as the 
address to be put in an 8086 execution start address record or the 8080 end-of-file 
record. 

If the 8086 format is specified, then the segment value for the first extended address 
record and the offset value for the load address field of the first data record are 
taken from the corresponding fields within the start addr expression. If no segment 
value is specified in the end addr, then it defaults to the value specified or implied in 
the start addr. The CS and IP register values for the execution start address record 
are taken from their respective fields within the exec addr expression. 
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If the 8080 format is specified, then the load address for the first data record is taken 
from the offset value in the start addr expression, although the data is output from 
the actual address entered. The execution address put in the end-of-file record 
is taken from the exec addr if specified. No segment value is allowed in the end 
addr and exec addr. 



Error Conditions 

The following error conditions are associated with the Transfer (T) command: 

(1) end addr is less than start addr. 

(2) ISIS-II type (1 -99) errors. 

(3) "P" specified in first argument on Intellec Series II. 

(4) Timeout. 

(5) Checksum error. 

Example 

Transfer iSBC 86/12 memory between 00400 and 0FE50, relative to current CS 
register, into file :F2:MYPROG in 8086 format using the serial interface: 

.T S,400,FE50,:F2:MYPROG<c/-> 



3-10. Exit(E) 

Function 

This command (E) allows you to exit the loader and return to ISIS. 

Syntax 
E<cr> 



3-11. Single Step (N) 

Function 

This command (N) executes one user program instruction. 

Syntax 

N [<addr>] , [[<addr>],]*<cr> 

Operation 

After "N" is entered, the monitor displays the current IP register contents followed 
by a "-" and the instruction byte pointed to by the IP register. If you wish to 
modify the IP register or both the CS and IP registers, enter an addr value followed 
by a comma. If the addr value includes a segment value, then both the CS and IP 
registers are modified. Otherwise, only the IP register is modified. 
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A comma, when typed after the next instruction byte is displayed or after entering 
addr, causes all user registers to be restored and a single instruction within the user 
program to be executed. The monitor is then reentered, all user registers are saved, 
and the new IP (followed by "-" and the next instruction byte) is displayed. The 
procedure for modifying the IP (and CS) register and/or single-stepping the next in- 
struction byte can be repeated any number of times. A carriage return after the next 
instruction byte is displayed terminates the command. 

The following restrictions apply to the single-step command: 

(1) If an interrupt occurs prior to the completion of the single-stepped instruction, 
or if the single-stepped instruction generates an interrupt (e.g., an INT instruc- 
tion), then upon reentering the monitor, the CS and IP register values will point 
to the interrupt service routine. An exception occurs with the INT 3 instruction. 
In this case, the CS and IP values will point to the instruction after the INT 3. 

(2) An instruction that is part of a sequence of instructions that switches stacks 
(such that the new stack is in a new segment) cannot be single stepped. 

Examples 

(1) -N 3C07- 40 3C00 Change IP to 3C00 and step. 

(2) 3C01- 5B , Step. 

(3) 3C02- 5A 5 Step. 

(4) 3C03- 5B< cr> Terminate command. 



3-12. Go(G) 

Function 

This command (G) transfers control of the CPU from the monitor to the user 
program. 

Syntax 

G[<startaddr>][,<break 1 addr>[,<break2addr>]]<cr> 



Operation 

After "G" is entered, the monitor displays the current IP register contents followed 
by a "-" and the instruction byte pointed to by the IP register. If you wish to 
modify the IP register or both the CS and IP registers, enter the start addr. When 
the start addr includes a segment value, both the CS and IP registers are modified. 
Otherwise, only the IP register is modified. 

One or two optional breakpoint addresses may be specified by entering a comma 
followed by break 1 addr and break 2 addr after the instruction byte is displayed or 
after entering the start addr. If a segment value was specified in the start addr, then 
it becomes the default segment value for each break addr. 

a carnage reiuni aner uic Opuuncii aigumcma mc cineieu ui anvi mi. uwn. nwum. 
tion byte is displayed causes the monitor to restore all user registers and pass control 
to the user program. 
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Breakpoints are implemented by replacing each breakpointed instruction with an 
INT 3 instruction, and therefore only instructions in RAM may be breakpointed. 
Upon execution of the INT 3 instruction, the monitor is reentered, all registers are 
saved, the breakpointed instruction(s) are restored, "BRn @XXXX:YYYY ZZ" is 
displayed (where n = 1 or 2, XXXX = CS, YYYY = IP, and ZZ = next instruction 
byte), and you are prompted for a new command. If the monitor is reentered 
through an internally or externally generated interrupt before a breakpoint occurs, 
the breakpointed instruction(s) is restored by the monitor. 

Error Conditions 

An error is caused by an attempt to breakpoint EPROM or non-existent RAM. 

Examples 

(1) .G 1000- F5< cr> Begin at current IP. 

(2) .G 1000- F5 3000<cr> Begin at 3000 relative to current CS . 

(3) .G 1000- F5 0015:3000<cr> Begin at 3000 relative to CS value of 0015. 

(4) .G 1000- F5 3000. 3C0Kcr> Begin at 3000 and set breakpoint 1 at 3C01. 
BR1 @0015 :3C01 F5 Monitor is entered at breakpoint . 

(5) G 1000- F5 ,3C01<c/> Begin at current IP and set breakpoint at 3C01 . 



3-13. Substitute Memory (S) 

Function 

This command (S) allows you to display and optionally modify memory locations on 
a byte or word basis. 



Syntax 

S[\N]<addr>,[[<newcontents>],]*<cr> 
where S=byte mode and SW=word mode. 

Operation 

The memory contents are displayed and modified as bytes if "S" is specified; the 
memory contents are displayed and modified as words if "SW" is specified. When 
the command is entered, the contents of the memory location specified by addr is 
displayed followed by the prompt 

If you wish to modify the contents of the location displayed, enter the new con- 
tents (data to be stored) followed by a comma or a carriage return. The location is 
then updated with the new data entered. 

If a comma is typed after the monitor's prompt or after entering the new con- 
tents, the offset address and contents of the next location are displayed on a new line 
followed by another prompt "-". The procedure for modifying the current location 
and/or displaying the next location can then be repeated any number of times. A 
carnage return after any prompt "-" or after the entry of new contents terminates 
the command. 
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Error Conditions 

An error is caused if the addr is located in EPROM or in non-existent RAM. 

Examples 

(1) Examine locations 3FF0 to 3FF3, relative to the DS register, and modify 
location 3FF2: 

^S DS:3FF0, £5^ , 
3FF1 40- , 
3FF2 59- 5D, 
3FF3 C3- <cr> 

(2) Examine and modify top element of stack: 
^SW SS:SP, 3C1F- 3C1E<cr> 

3-14. Examine/Modify Register (X) 

Function 

This command (X) allows you to examine and optionally modify the CPU registers. 

Syntax 

X[<reg>][[<new contents>],]*<cr> 

Operation 

This command (X) has two forms depending on whether or not a register is specified 
in the reg variable. In the first form, when a register is specified (e.g., AX, BX, SI, 
CS, etc.), the contents of the specified register are displayed followed by a prompt 
"-". If you wish to modify the contents of the register, enter the new con- 
tents followed by a comma or carriage return. The register is then updated with the 
new data entered. If a comma is typed after the monitor's prompt or after entering 
the new contents value, the name and contents of the next register in order is 
displayed on a new line followed by another prompt "-". (The registers are 
displayed in the sequence listed in table 3-1.) The procedure for modifying the cur- 
rent register contents and/or displaying the next register can be repeated until the 
last register has been displayed. A carriage return after any prompt "-", or after en- 
try of anew contents value, terminates the command. 

In the second form, no register is specified and the command is simply X followed 
by a carriage return. This form of the command displays all the CPU register names 
and contents in the order listed in table 3-1 . 

Examples 

(1) Modify the contents of the SI register and then examine the DI register: 

X SI =034C- FFF, 
DI=F638- <cr> 

(2) Examine all the CPU registers: 

X<cr> 

AX=FFFF BX=FFFF CX=FFFF DX=FFFF SP=FFFF BP=FFFF SI=FFFF 

DI=FFFF CS=FFFF DS=FFFF SS=FFFF ES=FFFF IP=FFFF FL=FFFF 
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3-15. Display Memory (D) 



Function 

This command (D) displays the contents of a specific block of memory; the contents 
can be displayed on a byte or word basis. 



Syntax 

D[\N]<start addr>[,<end addr>]<cr> 

where D=byte mode and DW=word mode. 

Operation 

This command provides a line-by-line formatted hexadecimal display of the memory 
block bounded by the start addr and end addr, inclusive. The end addr is an offset 
address relative to the segment value specified or implied in the start addr expres- 
sion; consequently, no segment value is allowed. This means that the block size is 
limited to 64K bytes. If end addr is omitted, only one location is displayed. The 
display can be as bytes or words, depending upon whether an optional "W" is 
entered. In the word mode, the high-order byte is followed by the low-order byte. 
Each line of the display begins with the offset address of the first memory location 
displayed on that line, followed by the contents of each location (or pair of locations 
in the word mode). 

Error Condition 

An error is caused if the end addr is less than the offset value of the start addr. 

Examples 

(1) Display locations 0009 through 002A relative to DS register: 

_J5 DS:9,2A<cr> 

0009 00 00 00 00 00 00 00 

0010 34 12 00 00 00 00 00 00 00 00 00 00 00 00 QQ QQ 

0020 00 00 00 00 00 00 00 00 00 00 00 

(2) Display location 0019 relative to CS register: 

JD 19<cr> 
0019 FE 

(3) Display locations 0009 through 002A, relative to DS register, in word mode: 

J)\N DS:9,2A<cr> 

0009 0000 0000 0000 3400 

0011 0012 0000 0000 0000 0000 0000 oooo oooo 

0021 0000 0000 0000 oooo oooo 



3-16. Move(M) 

Function 

This command (M) moves the contents of a memory block. 
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Syntax 

M<start addr>,<end addr>, destination addr><cr> 

Operation 

The move command moves the contents of the memory block bounded by the start 
addr and end addr, inclusive, to the memory locations starting at the destination 
addr. The end addr is an offset address relative to the segment value specified or im- 
plied in the start addr expression, and consequently no segment value is allowed. 
This means that the block size is limited to 64K bytes. The move is done a byte at a 
time beginning with the contents of the start addr. When the move is completed, the 
monitor prompts for a new command. 

The move command may be used to fill memory with a constant by first modifying 
the contents at location start addr with the constant, and then specifying the destina- 
tion addr as start addr+ 1 in a move command. Note that, in this case, the specified 
end addr must be one less than the actual end address desired. 

Error Conditions 

The following error conditions apply to this command: 

(1) end addr is less than offset value of start addr. 

(2) Attempt to move block to EPROM or non-existent RAM. 

Example 

Move the contents of memory between locations 0200 and 0250H, relative to DS 
register, to the destination address with segment value of ES + 10 and offset value of 
0150: 

.M DS:200,250,ES + 10:150<c/-> 



3-17. Compare (C) 

Function 

This command (C) compares the contents of one block of memory with that of 
another block. 

Syntax 

C<start addr>,<end addr>,<destination addrXcr> 



Operation 

This command compares the contents of the memory block bounded by the start 
addr and end addr, inclusive, with the contents of the memory block starting at the 
destination addr. The end addr is an offset address relative to the segment value 
specified or implied in the start addr expression, and consequently no segment value 
is allowed. This means that the block size is limited to 64K bytes. Each time the con- 
tents of a location in the first block is not equal to the contents of the corresponding 
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location in the destination block, the mismatch is displayed. A single line is format- 
ted with the offset address and contents of the location within the first block, 
followed by the offset address and contents of the location within the destination 
block. 

Error Condition 

An error occurs if the end addr is less than the offset value of the start addr. 

Example 

Compare the contents of memory between locations 0000 and 0030, relative to CS 
register, with the contents of memory starting at 0050H, relative to ES register: 

J3 0,30,ES:50<cr> 
0021 00 0071 1F 
002D C8 007D D3 



3-18. Find(F) 

Function 

This command (F) searches a block of memory for a match on a byte or word value. 

Syntax 

F[W]<starf addr>,<end addr>,<data><cr> 

where F=find byte and FW=find word. 

Operation 

The search is performed in a sequential manner over the block bounded by the start 
addr and end addr, inclusive. The end addr is an offset address relative to the seg- 
ment value specified or implied in the start addr expression, and consequently no 
segment value is allowed. This means that the block size is limited to 64K bytes. 
Each time a match is found, its offset address is displayed. When the entire block 
has been searched, the monitor prompts for a new command. 

In the word mode after each comparison is made, the monitor's address pointer for 
the next comparison is incremented by one as shown in the example below. 

Error Condition 

An error occurs if the end addr is less than the offset value of the start addr. 

Example 

Search locations 0100-0101, 0101-0102, 0102-0103, 0103-0104, relative to DS 
register, for FFFF. 

^FW DS:100,103,FFFF<cr> 

0100 

0103 

The contents of locations 0100-0101 and 0103-0104 equal FFFF. 
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3-19. Hexadecimal Arithmetic (H) 

Function 

This command (H) performs hexadecimal addition and subtraction of two 
arguments. 

Syntax 

H<data 1>,<data 2><cr> 

Operation 

Two's complement arithmetic modulo 2 16 is performed. After the carriage return is 
entered, the monitor prints the sum (value of data 1 plus the value of data 2), a 
space, and the difference (value of data 1 minus the value of data 2). 

Example 



>l 0C52,040Kcr> 
1053 0851 



3-20. Port Input (I) 

Function 

This command (I) inputs and displays a byte or a word from the specified port. 

Syntax 

\[\N]<port addr>, [,]*<cr> 

where I=input byte and IW=input word. 



Operation 

This command inputs a byte or word from the port specified by the port addr and 
displays the value. No segment value is allowed in the port addr expression since the 
I/O space is addressed as if it were a single segment. A comma must be entered after 
the port addr to activate the command. After the input value is displayed, a comma 
may be entered again to perform another input operation from the same port. This 
procedure may be repeated any number of times. A carriage return terminates the 
command. 



Example 

Input a byte from port F7 three times: 

JF7, 

2E, 
2F<cr> 
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3-21. Port Output (0) 

Function 

This command (O) outputs a byte or a word to the specified port. 

Syntax 

0[]N]<portaddr>,<data>[,<data>]*<cr> 

where 0=output byte and OW=output word. 

Operation 

This command outputs the byte or word specified by the data to the port specified 
by port addr. No segment value is allowed in the port addr expression since the I/O 
space is addressed as if it were a single segment. If more than one output operation 
to the same port is to be executed, a comma may be typed after data. The monitor 
will output the value to the specified port and display "-" on a new line, prompting 
for the next value to be output. The procedure may be repeated by entering another 
data followed by a comma. A carriage return entered after a prompt terminates the 
command. A carriage return after entering data outputs the value and then ter- 
minates the command. 

Example 

Output 3C5, 31, 32, 34 to port FA. 

JDW FA, 3C5, 
^31, 
^32, 
- 34<cr> 
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CHAPTER 4 
PROGRAMMING INFORMATION 



4-1. Introduction 

The memory organization, initialized contents of the 8086 CPU registers, USART 
baud rate requirement, interrupt servicing, and instruction breakpoints are dis- 
cussed in the following paragraphs. 



4-2. Memory Organization 

The RAM storage area from OH to 17FH is reserved for the monitor stack, the 
monitor data area, and interrupt vectors. The monitor's constants and code reside in 
EPROM locations FE800H to FFFFFH. (EPROM locations FE000H to FE7FFH 
are not used.) The user may utilize RAM locations from 1C0H to FDFFFH as 
desired. During start-up, the monitor sets the user's stack pointer to 001C0H, poin- 
ting to the first available location in the user's RAM area above the initial user's 
stack, for which 64 bytes are reserved (locations 180H to 1BFH). This may not be 
enough for a user application, in which case the user's initialization code should 
change the stack pointer's value. 

The monitor reserves locations OH to 9FH for forty 4-byte interrupt vectors. Vectors 
and 4 have dedicated hardware functions. Vectors 1, 2, and 3 are reserved by the 
monitor for single-step, non-maskable interrupt, and breakpoint. Vectors 5-31 are 
reserved for future use by Intel. Vectors 32-39 are used for the 8259A interrupt con- 
troller. Vectors 112 to 255 (locations 1C0H to 3FFH) above the monitor's data area 
is available to the user. 

Whenever the monitor is reentered (single step, breakpoint, interrupt), it temporari- 
ly uses 13 words of the user's stack to save registers. This value must be taken into 
consideration when allocating memory for the stack. The registers are removed from 
the stack before the prompt is issued. 



4-3. 8086 CPU Register Initialization 

When power is initially applied to the iSBC 86/12, or when reset, the monitor in- 
itializes the user's 8086 register values as follows: 

CS = 0000 
SS = 0000 
DS = 0000 
ES = 0000 
IP =0000 
FL = 0000 
SP = 01C0H 



4-4. USART Initialization 

When power is initially applied to the iSBC 86/12, or when reset, the monitor 
automatically programs the 8251 A USART for interface with the console device. 
The USART is configured to the following state: 
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a. Mode: 

1 stop bit at 150-9600 baud 

2 stop bits at 1 10 baud 
Parity disabled 

8 bit character length 
Baud rate factor of 16X 

b. Command: 

Request-To-Send 
Error reset 
Receiver enabled 

Data-Terminal-Ready at 150-9600 baud 
Transmitter enabled 



NOTE 

Counter 2 of the 8253 Programmable Interval Timer is used to establish the 
baud rate. Care must be exercised by the user in modifying the US ART 
mode and command since the monitor's device drivers depend on the con- 
figuration defined above for proper operation. Also, the mode of Counter 2 
of the 8253 should not be modified. 



4-5. Interrupt Servicing 

When power is initially applied to the iSBC 86/12, or when reset, the monitor sets 
(1) the single-step interrupt vector, (2) the non-maskable interrupt vector, and (3) the 
one- byte trap instruction interrupt vector to monitor entry points. 

The monitor also sets the 8259A Programmable Interrupt Controller to the fully 
nested mode with level at the highest priority. All interrupts are unmasked. The 
8259A is initialized to provide vectored interrupts through a table located in RAM at 
80H. All entries are initialized to reenter the monitor though a special interrupt entry 
point. When an interrupt occurs, control is returned to a monitor routine that saves 
the user's registers. It then displays the interrupt level, the CS and IP register values 
(that were saved by the interrupt sequence of the hardware), and the instruction byte 
pointed to by the IP register. The monitor then acknowledges the interrupt and pro- 
mpts the user for a command as follows: 

J3 3000<cr> 
l=3@1000:230F F5 



The Go (G) command may be used to resume operation. 

The user may also elect to field his own interrupts. In that case, for each interrupt 
two words of the table should be modified to contain the address of the user's inter- 
rupt handler. The IP value is stored at 

(80H + 4*INTERRUPT#) 

and the CS value is stored at 
(82H + 4*INTERRUPT#) 

Interrupts are disabled during user/monitor command interaction so that pending 
interrupts will not interfere with program checkout. The user program's interrupt 
state is restored on exiting the monitor via the Go (G) or Single Step (N) command. 
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4-6. Instruction Breakpoints 

If the user codes an INT 3 instruction into his program, the monitor is reentered 
when that instruction is executed. The monitor saves all registers and then prints 
an "@", the contents of the CS and IP registers, and the instruction byte pointed to 
by the IP (which is the instruction after the INT 3). The monitor then prompts the 
user for a command. Program execution may be resumed with the Go (G) or Single 
Step (N) command. 

Example 

The user program contains an INT 3 instruction at location 3F02, relative to CS seg- 
ment value 1200. Upon execution of the INT 3 the monitor displays the following: 

@1200:3F03 F5 



4-7. System I/O Routines 

The diskette on which the loader resides also includes two libraries containing I/O 
routines for the console. The routines in both libraries have the same names and 
functions, but two libraries are necessary to support the two types of subroutine 
linkages provided by the 8086 architecture- The routines in SBCIOS.LIB are written 
to be called with intrasegment subroutine calls. A PL/M-86 module compiled with 
the "small" control generates this type of call. The routines in SBCIOL.LIB are 
written to be called with intersegment subroutine calls. A PL/M-;86 module compil- 
ed with either the "medium" or "large" control generates this type of call. 

The routines in both libraries were written in PL/M-86. The modules in 
SBCIOS.LIB were compiled with the "small" control. The modules in 
SBCIOL.LIB were compiled with the large control. The names assigned to the 
segments, classes, and groups are the standard names generated by the PL/M-86 
compiler. (See ISIS-II 8086 Cross Development Utilities Operator's Manual, Order 
No. 9800639). 

The console input and output routines provided in the library should be used for 
console I/O. The loader has some special requirements which are handled by the 
routines described in the following paragraphs. 



4-8. Console Input (CI) Routine 

This routine returns an 8-bit character received from the console device to the caller 
in the AL register. The AX, CX, and DX registers and the CPU condition codes are 
affected by this operation. 

If a Control-S (13H) or Control-Q (11H) character is read, then the character is 
"thrown away" and another is read. This is necessary in order to operate properly 
with the feature provided in the CO routine. 
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Example 1 



PL/M-86 CI Call Example 



CI: PROCEDURE BYTE EXTERNAL; 
END CI; 

DECLARE CKAR BYTE; 



CHAR = CI AND 7FH ; /* INPUT CHARACTER AND STRIP PARITY BIT */ 



Example 2 



ASM86 CI Intrasegment Call Example 



ASSUME DS:DATA,SS:STACK,CS :C0DE 

DATA SEGMENT FUBLIC 'DATA' 

CHAR DB ? 
DATA ENDS 



STACK SEGMENT STACK 'STACK' 

DW 15 DUP ? 

BASESTACK LABEL WORD 
STACK ENDS 

CODE 

INIT: 



CODE 



SEGMENT PUBLIC 'CODE' 
EXTRK CI:NEAR 



MOV 


AX, STACK 


INITIALIZE 


MOV 


SS.AX 


SS 


MOV 


SP, OFFSET BASESTACK 


INITIALIZE SP 


MOV 


AX.DATA 


INITIALIZE 


MOV 


DS.AX 


DS 


CALL 


CI 


INPUT CHARACT 


AND 


AL.7FH 


STRIP OFF PAR 


MOV 


CHAR.AL 


SAVE CHARACTE 


ENDS 






END 


INIT 
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Programming Information 



Example 3 



ASM86. CI Intersegment Call Example 



EXTRN CI:FAR 

ASSUME DS:MYBATA,SS:STACK,CS:MYCODE 



MYDATA 


SEGMENT 'DATA 


CHAR 


DE ? 


MYDATA 


ENDS 



STACK SEGMENT STACK 'STACK' 

DW 16 DUP ? 
BASESTACK LABEL WORD 
STACK ENDS 



MYCODE 


SEGMENT 


'CODE' 






INIT: 












MOV 


AX, STACK 


INITIALIZE 






MOV 


SS.AX 


SS 






MOV 


SP, OFFSET BASESTACK 


INITIALIZE 


SP 




MOV 


AX, MYDATA 


INITIALIZE 






MOV 


DS.AX 


DS 





CALL 


CI 


AND 


AL.7FH 


MOV 


CHAR.AL 



INPUT CHARACTER FROM CONSOLE 
STRIP OFF PARITY BIT 
SAVE CHARACTER 



MYCODE 



ENDS 
END 



INIT 
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4-9. Console Output (CO) Routine 

This routine transmits an 8-bit character, passed from the caller on the stack in the 
low-order byte, to the console device. The AX, CX, and DX registers and the CPU 
conditions codes are affected by this operation. 

Before the character is output, the routine checks to see if a Control-S has been in- 
put. If so, it waits until a Control-Q is input before outputting the character. Thus, 
if a Control-S is entered at the console when output is pending, the output is tem- 
porarily stopped. Entering a Control-Q will resume output. 



Example 1 



PL/M-86 CO Call Example 



CO: PROCEDURE(X) EXTERNAL; 
DECLARE X EYTE; 
END CO; 

DECLARE CHAR EYTE; 



CALL CO(CHAR); /* OUTPUT CHARACTER */ 



Example 2 



ASM86 CO Intrasegment Call Example 



ASSUME DS:DATA,SS:STACK,CS :C0DE 



DATA 


SEGMENT PUBLIC 


'DATA ' 


CHAfi 


DB ? 




DATA 


ENDS 





STACK SEGMENT STACK 'STACK' 

DW 15 DUP ? 

BASESTACK LABEL WORD 
STACK ENDS 

CODE SEGMENT PUBLIC 'CODE' 

EXTRN CO:NEAR 
INIT: 

MOV AX, STACK 

MOV SS.AX 

MOV SP, OFFSET BASESTACK 

MOV AX, DATA 

MOV DS.AX 



INITIALIZE 

SS 
INITIALIZE SP 
INITIALIZE 

DS 



MOV 

PUSH 

CALL 



AL.CHAR 

AX 

CO 



LOAD CHARACTER INTO AL 
PUSH CHARACTER ONTO STACK 
OUTPUT CHARACTER TO CONSOLE 



CODE 



ENDS 
END 



INIT 
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Programming Information 



Example 3 



ASM86 CO Intersegment Call Example 



EXTRN CO: FAR 

ASSUME DS : MYDATA , SS : STACK , CS :MYCODE 



MYDATA 


SEGMENT 


CHAR 


DB 


MYDATA 


ENDS 



'DATA' 



STACK SEGMENT STACK 'STACK' 

DW 16 DUP ? 
BASESTACK LABEL WORD 
STACK ENDS 



MYCODE 


SEGMENT 


•CODE' 






INIT: 












MOV 


AX, STACK 


INITIALIZE 






MOV 


SS.AX 


SS 






MOV 


SP, OFFSET BASESTACK 


INITIALIZE 


SP 




MOV 


AX, MYDATA 


INITIALIZE 






MOV 


DS.AX 


DS 





MOV 

PUSH 

CALL 



AL.CHAR 

AX 

CO 



LOAD CHARACTER INTO AL 
PUSH CHARACTER ONTO STACK 
OUTPUT CHARACTER TO CONSOLE 



MYCODE 



ENDS 
END 



INIT 
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iSBC 86/12 MONITOR 

(PL/M-86 COMPILER SOURCE LISTING) 



A-l 



PL/M-86 COMPILER ISEC 86/12 MONITOR PAGE 

ISIS-II PL/M-86 V1.0 COMPILATION OF MODULE MONITOR 
OBJECT MODULE PLACED IN : F 1 : SBCMON. OB J 

COMPILER INVOKED BY: :F2:PLM86 : F 1 : SBCMON. PLM LARGE OPTIMIZE(2) PRINT (: F3 : SBCMON LST) 4 

PAGEWIDTH(95) 



$TITLE('ISBC 86/12 MONITOR') 
$NOINTVECTOR 

/* ****««*****»***«**»»»»«**«»«»««»»»»»»»«««««,»»«,„,»»,,»»»,,,,,,, 
*>****i **»***«( «»•*•» ***»t*f «*«*•« *•******•***« lflli(»<»i<illl 

ISBC 86/12 MONITOR, V1.2 
18 JULY 1978 

(C) 1978 INTEL CORPORATION. ALL RIGHTS RESERVED. NO PART 
OF THIS PROGRAM OR PUBLICATION MAY BE REPRODUCED, TRANSMITTED, 
TRANSCRIBED, STORED IN A RETRIEVAL SYSTEM, OR TRANSLATED INTO ANY 
LANGUAGE, IN ANY FORM OR BY ANY MEANS, ELECTRONIC, MECHANICAL, 
MAGNETIC, OPTICAL, CHEMICAL, MANUAL OR OTHERWISE, WITHOUT THE PRIOR 
WRITTEN PERMISSION OF INTEL CORPORATION, 3065 BOWERS AVENUE. SANTA 
CLARA, CALIFORNIA, 95051. 

***********»«»*******«***«*»*****»»*»»»»»«*»»,»»»,»,»,(,(„,»»,,»,„ 

»llllil>II«i«ll«tUII<itiltl|M||llt<IIIIMil««lll« Ii(ll« 

ABSTRACT 



THIS PROGRAM IS THE ROM BASED MONITOR FOR THE ISBC 86/12. IT PROVIDES 
THE USER WITH A MODERATE LEVEL OF CAPABILITY TO EXAMINE/MODIFY 
MEMORY AND REGISTERS, CONTROL PROGRAM EXECUTION, AND LOAD/SAVE 
PROGRAMS. 

ENVIRONMENT 



THE SBC MONITOR COMMUNICATES WITH THE USER VIA AN INTERACTIVE 
TERMINAL (TTY.CRT) ATTACHED TO THE SERIAL PORT. 

PROGRAM ORGANIZATION 



THE PROGRAM IS DIVIDED INTO 1 DATA AND 2 CODE MODULES: 

1. DATA DECLARATION MODULE. GLOBAL DATA DECLARATIONS. 

2. COMMON ROUTINES. LOWER LEVEL PROCEDURES 

3. COMMAND MODULE. INDIVIDUAL COMMANDS AND OUTER BLOCK 

CALLING GRAPH 

>>COMMAND DISPATCH MODULE (OUTER BLOCK) 
INDIVIDUAL COMMAND PROCEDURES 
COMMON ROUTINES 

GLOBAL DATA STRUCTURES 



THE MONITOR MAINTAINS THE USER'S MACHINE STATE (REGISTERS) IN A 
WORD ARRAY. THE REGISTERS ARE SAVED FROM THE USER'S STACK 
AS PUSHED BY PLM86 INTERRUPT PROCEDURE. 



PL/M-86 COMPILER 



ISBC 86/12 MONITOR 



PAGE 



POINTERS TO THE 2*«20 ADDRESS SPACE ARE IMPLEMENTED WITH 
POINTER STRUCTURES ALLOCATED AS 2 WORD STRUCTURES. 



»/ 



MONITOR:DO; 



/* BEGINNING OF MODULE */ 



/« 



xxxxxxxxxxxxxxxxxxxxxx*xxxxxxxxxxxx«xxx»x»xx*x*xx*x*xxxxxxx****x 
iiiiilililllilliillfllliiflllittillllilllfllllllllllliilllllllll 



GLOBAL DATA DECLARATIONS MODULE 



ABSTRACT 



THIS MODULE CONTAINS ALL THE GLOBAL DATA DECLARATIONS AND 
LITERALS (EQUATES). 

MODULE ORGANIZATION 



THE MODULE IS DIVIDED INTO 5 SECTIONS: 



1. UTILITY SECTION 

2. I/O SECTION 

3- MEMORY ARGUMENTS SECTIONS 

4. REGISTER SECTION 



*/ 



* UTILITY SECTION * 
x»xxxxxxxxxxxxxxx*xx*x/ 



GLOBAL FLAGS, VARIBLES, EQUATES 
I/O PORTS, MASKS, AND SPECIAL CHARS 
STRUCTURES FOR POINTERS 
USER REGISTER SAVE AREA 



DECLARE 



INT$VECTOR(ltO) 



POINTER; 



DECLARE 



MONITOR$STACKPTR WORD, 
MONITOR$STACKBASE WORD; 



DECLARE 



INT3$PTR 



POINTER; 



DECLARE 



/* INTERRUPT VECTORS */ 



/« INTERRUPT3$ENTRY ADDRESS */ 



COPYRIGHTS) BYTE DATA ('(C) 1978 INTEL CORP'); 



DECLARE 



BRK1$FLAG 

BRK1$SAVE 

BRK2$FLAG 

ERK2$SAVE 

CHAR 

CHECK$SUM 

I 

J 

II 

JJ 

END$OFF 

WORD$MODE 

LAST$COMMAND 

MODE 

SAVE$MODE 

SWITCH$BAUD 

MODE$8086 



BYTE, 
BYTE, 
BYTE, 
BYTE, 
BYTE, 
BYTE, 
BYTE, 
BYTE, 
WORD, 
WORD, 
WORD, 
BYTE, 
BYTE, 
BYTE, 
BYTE, 
BYTE, 
BYTE, 



/« TRUE IF BREAK SET */ 

/* INST BREAK SAVE »/ 

/* TRUE IF BREAK 2 SET «/ 

/• INST BREAK 2 SAVE */ 

/* ONE CHAR LOOK AHEAD */ 

/» PAPER TAPE CHECKSUM «/ 

/* INDEX «/ 

/* INDEX «/ 

/* INDEX ■/ 

/* INDEX «/ 

/« END OFFSET ADDRESS «/ 

/* WORD MODE FLAG */ 

/« LAST COMMAND SAVE «/ 

/* R, W, L & T MODE */ 

/» SAVE MODE »/ 

/* BAUD RATE SWITCH FLAG «/ 

/* 8086 FILE FORMAT «/ 
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BRF 



WORD; 



/* BAUD RATE FACTOR »/ 



DECLARE 






TRUE 


LITERALLY 


OFFH* 


FALSE 


LITERALLY 


OOOH' 


BREAK$INST 


LITERALLY 


OCCK' 


STEPJTRAP 


LITERALLY 


0100H 


USER$INIT$SP 


LITERALLY 


1C0H' 


GO$COMMAND 


LITERALLY 


2", 


SS$COMMAND 


LITERALLY 


3', 


STANDARD$LEN 


LITERALLY 


16' , 


MAX$DELAY 


LITERALLY 


60000 


TAPE 


LITERALLY 


1H\ 


SERIAL 


LITERALLY 


2H«, 


PARALLEL 


LITERALLY 


HW , 


ASCR 


LITERALLY 


'ODH' 


ASLF 


LITERALLY 


•OAH' 


ASBL 


LITERALLY 


'20H' 


DECLARE 







/* BREAKPOINT INST */ 

/* SS TRAP FLAG MASK */ 

/* USER STACK INITIAL */ 

/* GO COMMAND CODE */ 

/* SINGLE STEP CODE */ 

/» PAPER TAPE DATA REC LEN •/ 

/* DELAY FOR READ CHAR «/ 

/» TAPE MODE */ 

/* SERIAL MODE */ 

/» PARALLEL MODE »/ 

/* CARRIAGE RETURN */ 

/* LINE FEED */ 

/* BLANK OR SPACE */ 



SI0$BREAK1$MSG 

SI0$BREAK2$MSG 

SIO$SIGNOH(») 

ASCII(») 

SIO$CMND(») 

BR$CHAR(*) 



(*) BYTE DATA ( 'BR1 ' ,0) , 
(«) BYTE DATA ('BR2 ',0), 

BYTE DATA ( ODH , OAH , ' ISBC 86/12 MONITOR, V1.2',0), 

BYTE DATA ( ' 1 23<»56789ABCDEF ' ) , 

EYTE DATA ( • SXGNMDCFHIORWLT ' ) , 

BYTE DATA ( 55H , 66H , 78H ) ; 



« I/O DECLARATIONS SECTION * 



10 



DECLARE 






SIO$STAT$PORT 


LITERALLY 


ODAH' 


SIO$DATA$PORT 


LITERALLY 


0D8H' 


SIO$RESET 


LITERALLY 


10H' , 


SIO$CRT$MODE 


LITERALLY 


1)EH' , 


SIO$TTY$MODE 


LITERALLY 


OCFH' 


SIO$DTR$ON 


LITERALLY 


27H" , 


SIO$CRT$CMD 


LITERALLY 


37H' , 


SIO$TTY$CMD 


LITERALLY 


35H' , 


SIO$DTR$OFF 


LITERALLY 


25H' , 


SIO$RXRDY 


LITERALLY 


02H' , 


SIO$TXE 


LITERALLY 


01H* , 


SIO$TXRDY 


LITERALLY 


01H' , 


PARITY$MASK 


LITERALLY 


7FH' ; 


DECLARE 






IT$CONTROL$PORT 


LITERALLY 


0D6H' 


IT$CTR2$P0RT 


LITERALLY 


ODUH' 


IT$C2M3 


LITERALLY 


0B6H' 


B9600 


LITERALLY 


0008H 



B1200 LITERALLY '0040H', 

B600 LITERALLY '0080H', 

B 1 10 LITERALLY 'OOAFH'; 



/* 8251A USART «/ 

/» STATUS PORT */ 

/* DATA PORT »/ 

/» RESET USART */ 

/» CRT MODE */ 

/» TTY MODE */ 

/» RTS.RXE.DTR.TXE »/ 

/« RTS,ER,RXE,DTR,TXE «/ 

/* RTS,ER,RXE,TXE »/ 

/* RTS.RXE.TXE V 

/» RECEIVER READY */ 

/* TRANSMITTER EMPTY */ 

/* TRANSMITTER READY */ 

/» MASK OFF PARITY BIT */ 

/» 8253 INTERVAL TIMER */ 

/* CONTROL PORT */ 

/» COUNTER 2 PORT */ 

/* COUNTER 2, MODE 3 */ 

/* TIMER VALUE FOR 9600 BAUD «/ 
/» TIMER VALUE FOR 1200 BAUD «/ 

/» TIMER VALUE FOR 600 BAUD */ 
/» TIMER VALUE FOR 110 BAUD »/ 



DECLARE 



IC$PORTA 
IC$PORTB 



LITERALLY 'OCOH', 
LITERALLY '0C2H', 



/« 8259A INTERRUPT CONTROLLER */ 
/• PORT A «/ 
/« PORT B */ 



PL/M-86 COMPILER 



ISBC 86/12 MONITOR 



PAGE 



IC$ICW1 
IC$ICW2 
IC$ICW4 

IC$MASK 
IC$OCW3 

IC$EOI 
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DECLARE 



PI$PORTA 

PI$PORTB 

PI$PORTC$STAT 

PI$PORTC$CTL 

PI$M2M1 

PI$OBF 

PI$IBF 



LITERALLY 


M7H< , 


LITERALLY 


'20H' , 


LITERALLY 


MDH' , 


LITERALLY 


■OOH' , 


LITERALLY 


•OBH' , 


LITERALLY 


•20H»; 



LITERALLY 'OC8H', 

LITERALLY 'OCAH', 

LITERALLY 'OCCH', 

LITERALLY 'OCEH', 

LITERALLY '0C6H 1 , 

LITERALLY '08OH*, 

LITERALLY '02H*; 



* MEMORY ARGUMENT SECTION * 



/» INIT COMMAND WORD 1 */ 

/* INIT COMMAND WORD 2 */ 

/* INIT COMMAND WORD 4 */ 

/* INTERRUPT MASK */ 

/» READ INTERRUPT LEVEL */ 

/* END OF INTERRUPT CMD */ 

/* 8255A PERIPHERAL INTERFACE */ 



/* 


PORT A 


(OUTPUT) «/ 


/* 


PORT B 


(INPUT) */ 


/* 


PORT C 


STATUS */ 


1* 


PORT C 


CONTROL */ 


/* 


A-MODE 


1 , B-MODE 2 */ 


/* 


OUTPUT 


BUFFER READY */ 


/* 


INPUT 1 


BUFFER READY «/ 
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DECLARE 



MEMORY$ARG1$PTR POINTER, 

ARG1 STRUCTURE (OFF WORD, SEG WORD) 

AT (0MEMORY$ARG1$PTR) , 
MEMORY$ARG1 BASED MEMOR Y$ARG1 $PTR BYTE, 
MEMORY$WORD$ARG1 BASED MEMOR Y$ARG 1 $PTR WORD, 



/* ARGUMENT 1 */ 



MEMORY$ARG2$PTR POINTER, 

ARG2 STRUCTURE (OFF WORD, SEG WORD) 

AT (§MEMORY$ARG2$PTR) , 
MEM0RY$ARG2 BASED MEMORY$ARG2$PTR BYTE, 

MEMORY$ARG3$PTR POINTER, 

ARG3 STRUCTURE (OFF WORD, SEG WORD) 

AT (@MEMORY$ARG3$PTR) , 
MEMORY$ARG3 BASED MEMOR Y$ARG3*PTR BYTE, 

MEMORY$BRK1$PTR POINTER, 

BRK1 STRUCTURE (OFF WORD, SEG WORD) 

AT (@MEMORY$BRK1$PTR), 
MEMORY$BRK1 BASED MEMOR Y$BRK 1 $PTR BYTE, 

MEM0RY$BRK2$PTR POINTER, 

BRK2 STRUCTURE (OFF WORD, SEG WORD) 

AT (@MEM0RY$BRK2$PTR) , 
MEM0RY$BRK2 BASED MEMOR Y$BRK2$PTR BYTE, 

MEMORY$CSIP$PTR POINTER, 

CSIP STRUCTURE (OFF WORD, SEG WORD) 

AT (@MEMORY$CSIP$PTR) , 
MEMORY$CSIP BASED MEMOR Y$CSIP$PTR BYTE, 



MEMORY$USERSTACK$PTR POINTER, 

USERSTACK STRUCTURE (OFF WORD, SEG WORD) 

AT (@MEMORY$USERSTACK$PTR), 
MEMORY$USERSTACK BASED MEMOR Y$USERSTACK$PTR WORD; 



/* ARGUMENT 2 */ 



/* ARGUMENT 3 */ 



/* BREAKPOINT 1 */ 



/* BREAKPOINT 2 */ 



/* CS & IP WORD »/ 
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/*(«*f**»i*«*****»«(**«* 
* REGISTER SECTION * 

KKXtiiOliKltlililltff/ 
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DECLARE 



/* REGISTER NAMES »/ 



REG(«) BYTE DATA 

( 'AXBXCXDXSPBPSIDICSDSSSESIPFL' ) , 

REG$INDEX WORD, 

REG$SAV(14) WORD, /• USER'S SAVED REGS «/ 

REG$ORD(») BYTE DATA 

(7,6, 1,3,2,0,9,11,12,8,13), 

SP LITERALLY 'REG*SAV( 4)' 

BP LITERALLY 'REG$SAV( 5)' 

CS LITERALLY 'REG$SAV( 8)' 

DS LITERALLY 'REG$SAV( 9) ! 

SS LITERALLY • REG$SA V ( 1 ) ' 

ES LITERALLY • REG*SAV( 1 1 ) ' 

Ip LITERALLY • REG$SA V ( 1 2 ) ' 

F L LITERALLY ' REG$SA V( 1 3 ) ' 



/* Mimmmnnummmim,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 



COMMON PROCEDURES 



ABSTRACT 



THIS MODULE CONTAINS THOSE LOWER LEVEL PROCEDURES CALLED BY HIGHER 
LEVEL ROUTINES. 

MODULE ORGANIZATION 



THIS MODULE IS DIVIDED INTO 4 SECTIONS AS FOLLOWS: 
1. BASIC I/O SECTION 

SIO$CHAR$RDY INPUT CHARACTER HEADY 

SI0$CHECK$C0NTROL$CHAR CHECK FOR CONTROL CHARACTER 



SIO$OUT$CHAR 
SIO$GET$CHAR 
SI0$0UT$BYTE 

SIO$OUT$BYTE$PTR OUTPUT 
SI0$OUT$W0RD OUTPUT 

SIO$OUT$ELANK OUTPUT 
SIO$OUT$STRING OUTPUT 
SI0$0UT$HEADER OUTPUT 
UTILITY ROUTINES SECTION 
SIO$VALID$HEX 
SIO$HEX 

SIO$VALID$REG$FIRST 
SIO$VALID$REG 
SIO$CRLF 

SIO$TEST$WORD$MODE 
SIO$SCAN$BLANK 
SI0$SECOND$DELAY 
SIO$MS$DELAY 



OUTPUT CHARACTER 
INPUT A CHARACTER 
OUTPUT A BYTE IN HEX 

BYTE AT POINTER 
A WORD IN HEX 
A SINGLE BLANK 
A STRING 
A HEX FILE HEADER 



3. ARGUMENT EXPRESSION EVALUATION SECTION 



TEST FOR VALID HEX CHAR 

CONVERT TO HEX FROM ASCII 

TEST FOR VALID REGISTER FIRST CHAR 

TEST FOR VALID REGISTER NAME 

OUTPUTS A CR AND LF 

TEST FOR A 'W' IN COMMAND 

SCANS FOR OPTIONAL BLANK 

DELAY ONE SECOND 

DELAY N'MS. 
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SIO$GET$WORD GET AN WORD EXPRESSION 

SIO$GET$ADDR GET AN ADDRESS EXPRESSION 

SIO$UPDATE$IP OPTIONAL UPDATE OF CS:IP 
DEVICE INITIALIZATION SECTION 



SIO$RESET$USART 
SIO$INIT$MODE 
PAPER TAPE, SERIAL, 
SIO$READ$CHAR 
SIO$READ$BYTE 
SIO$READ$KORD 
SIO$WRITE$HEX$FILE 
SIO$READ$HEX$FILE 



RESET 8251A 

INITIALIZE FOR LOAD/TRANSFER 
PARALLEL READ SECTION 

READ CHAR FROM TTY READER 
READ A BYTE 
READ A WORD 
OUTPUT HEX FILE 
INPUT HEX FILE 



INTERRUPT AND RESTORE/EXECUTE ROUTINES 



SAVE$REGISTERS 

RESTORE$EXECUTE 

INTERRUPT1$ENTRY 

INTERRUPT3$ENTRY 

INTERRUPT32$ENTRY 

INIT$INT$VECTOR 



SAVES USER REGISTERS 
RESTORE MACHINE STATE AND EXEC 
INTERRUPT ROUTINE FOR SINGLE STEP 
INTERRUPT ROUTINE FOR GO 
INTERRUPT ROUTINE FOR 8259A 
INITIALIZES INTERRRUPT VECTORS 



15 



16 
18 
19 

20 



34 



35 



21 


2 


22 


2 


23 


2 


2 4 


3 


25 


3 


26 


4 


27 


4 


29 


4 


30 


3 


31 


2 



/iil»fl<ll«tllttiiti)i<« 

* BASIC I/O SECTION * 

**£**«**•«•*****••**•**•/ 

SIO$CHAR$RDY: 

/« TESTS FOR INPUT CHARACTER PENDING BY READING THE STATUS PORT 

AND MASKING WITH SIO$RXRD Y(READ DATA READY), RETURNS TRUE IF 

NOT EMPTY(CHAR PENDING) AND FALSE IF NO CHAR PENDING */ 
PROCEDURE BYTE; 

IF (INPUT(SIO$STAT$PORT) AND SIO$RXRDY)=0 THEN RETURN FALSE; 

RETURN TRUE; 
END; 

SIO$CHECK$CONTROL$CHAR: 

/* THIS ROUTINE CHECKS IF A CONTROL CHARACTER HAS BEEN INPUT TO 

THE SERIAL PORT. AFTER A CONTROL-S IT WAITS FOR A CONTROL-Q BEFOR 
RETURNING TO THE CALLER. A CONTROL-C CAUSES A JUMP TO THE ERROR 
ROUTINE. */ 
PROCEDURE; 

CHAR = INPUT(SIO$DATA$PORT) AND 07FH; 
IF CHAR=13H THEN /* CONTROL-S ? */ 

DO WHILE CHAR011H; /* CONTROL-Q «/ 

IF SIO$CHAR$RDY THEN 
DO; 

CHAR = INPUT(SIO$DATA$PORT) AND 07FH; 
IF CHAR=03H THEN GOTO ERROR; 
END; 
END; 
ELSE IF CHAR = 03H THEN GOTO ERROR; 
END SIO$CHECK$CONTROL$CHAR; 

SIO$OUT$CHAR: 

/* THIS ROUTINE OUTPUTS THE INPUT PARAMETER TO THE USART OUTPUT 

PORT WHEN USART IS READY FOR OUTPUT (XMIT BUFFER EMPTY). * / 
PROCEDURE(C) ; 

DECLARE C BYTE; 



36 


2 


37 


2 


38 


3 


4o 


3 


42 


3 


43 


3 


44 


2 


45 


3 


47 


3 


49 


3 


50 


3 


51 


2 


52 


2 
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IF (MODE AND SERIAL) <> THEN 
DO; 
LOOP: IF SIO$CHAR$RDY THEN CALL SIO$CHECK$CONTROL$CHAR ; 

IF (INPUT(SIO$STAT$PORT) AND SIO$TXRDY) = THEN GOTO LOOP; 
OUTPUT(SIO$DATA$PORT) = C; 
END; 
ELSE 
DO; 
L00P1: IF SIO$CHAR$RDY THEN CALL SIO$CHECK$CONTROL$CHAR ; 

IF (INPUT(PI$PORTC$STAT) AND PI$OBF) = THEN GOTO LOOP 1 J 
OUTPUT(PI$PORTA) = C; 
END; 
RETURN; 
END; 

53 1 SIO$GET$CHAR: 

/• THIS ROUTINE INPUTS A CHARACTER FROM THE INPUT PORT AND RETURNS 
WITH IT IN THE GLOBAL 'CHAR'. THE CHARACTER IS ECHOED TO THE 
OUTPUT PORT IF PRINTABLE. »/ 

PROCEDURE; 

54 2 DO WHILE ( INPUT (SIO$STAT$PORT ) AND SIO$RXRD Y) =0 ; END ; 

56 2 CHAR = INPUT(SIO$DATA$PORT) AND 07FH; 

57 2 IF CHAR>=ASBL THEN CALL SIOJOUT JCHAR ( CHAR ) ; 

59 2 END; 

60 1 SIO$OUT$BYTE: 

/* THIS ROUTINE OUTPUTS THE SINGLE INPUT PARAMETER TO THE USART 

IN ASCII HEXADECIMAL FORMAT. */ 
PROCEDURE(B) ; 

61 2 DECLARE B BYTE; 

62 2 CALL SIO$OUT$CHAR(ASCII(SHR(B,4) AND OFH ) ) ; 

63 2 CALL SIO$OUT$CHAR(ASCII(B AND OFH)); 

64 2 CHECK$SUM = CHECK$SUM - B; 

65 2 END; 

66 1 SIO$OUT$BYTE$PTR: 

/* THIS ROUTINE OUTPUTS THE BYTE BASED ON THE INPUT PARAMETER TO THE USA! 

IN ASCII HEXADECIMAL FORMAT. */ 
PROCEDURE (B$PTR); 

67 2 DECLARE B$PTR POINTER, B BASED B$PTR BYTE, X BYTE; 

68 2 X = B; 

69 2 CALL SIO$OUT$BYTE(X); 

70 2 END SIO$OUT$BYTE$PTR; 

71 1 SIO$OUT$WORD: 

/• THIS ROUTINE OUTPUTS THE INPUT PARAMETER AS 4 ASCII HEXADECIMAL 

CHARACTERS TO THE USART OUTPUT PORT. */ 
PROCEDURE(W) ; 

DECLARE W WORD; 

CALL SIO$OUT$EYTE(HIGH(W) ) ; 

CALL SIO$OUT*BYTE(LOW(W) ) ; 
END; 

76 1 SIO$OUT$BLANK: 

/* THIS ROUTINE OUTPUTS ONE BLANK. */ 
PROCEDURE; 

77 2 CALL SIO$OUT$CHAR(ASBL); 



72 


2 


73 


2 


74 


2 


75 


2 
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78 2 END; 

79 1 SIO$OUT$STRING: 

/* OUTPUTS A STRING POINTED TO BY THE FIRST PARM. */ 
PROCEDURE(PTR) ; 

80 2 DECLARE PTR POINTER, STR BASED PTR (1) BYTE; 

81 2 1=0; 

82 2 DO WHILE STR(I)<>0; 

83 3 CALL SIO$CUT$CHAR(STR(I)) ; 

84 3 1=1+1; 

85 3 END; 

86 2 END; 

87 1 SIO$OUT$HEADER: 

/* THIS ROUTINE OUTPUTS THE HEX FILE HEADER CONSISTING OF ':• 

FOLLOWED BY THE RECORD LENGTH, LOAD ADDRESS, AND THE RECORD TYPE. 
IT INITIALIZES THE CHECKSUM TO ZERO. */ 

PR OCEDURE( LENGTH, L0AD$ADDR , REC$TYPE ) ; 

88 2 DECLARE (LENGTH , REC$TYPE ) BYTE, LOAD$ADDR WORD; 

89 2 CALL SIO$OUT$CHAR( • : ' ) ; 

90 2 CHECK$SUM = 0; 

91 2 CALL SIO$OUT$BYTE(LENGTH); 

92 2 CALL SIO$OUT$WORD(LOAD$ADDR); 

93 2 CALL SIO$OUT$BYTE(REC$TYPE); 

94 2 END; 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXS 

* UTILITY ROUTINES SECTION * 

IXXXXXXXXXXX«*X**X»XXXXXX*X***X/ 

95 1 SIO$VALID$HEX: 

/« THIS ROUTINE TESTS IF THE INPUT PARM IS A VALID ASCII HEX DIGIT 

AND RETURNS TRUE AS THE VALUE OF THE PROCEDURE IF SO AND FALSE 

IF NOT. */ 
PROCEDURE (H) BYTE; 

DECLARE H BYTE; 

DO 1=0 TO LAST(ASCII); 

IF H=ASCII(I) THEN RETURN TRUE; 

END; 

RETURN FALSE; 
END; 

103 1 SIO$HEX: 

/* THIS ROUTINE CONVERTS THE INPUT PARM FROM ASCII TO ITS BINARY 

EQUIVALENT AND RETURNS IT AS THE VALUE OF THE PROCEDURE. NO CHECK 
IS MADE FOR INPUT VALIDITY. */ 

PROCEDURE(C) WORD; 

104 2 DECLARE C BYTE; 

105 2 IF C<='9' THEN RETURN DOUBLE (C-30H ) ; 

107 2 ELSE RETURN DOUBLE (C-37H ) ; 

108 2 END; 

109 1 SIO$VALID$REG$FIRST: 

/* THIS ROUTINE CHECKS IF 'CHAR' IS A VALID FIRST LETTER OF A REGISTER 

NAME AND RETURNS TRUE AS THE VALUE OF THE PROCEDURE IF SO. */ 
PROCEDURE BYTE; 
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110 
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DO 1=0 TO 26 BY 2; 
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IF CHAR=REG(I) THEN RETURN TRUE; 
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END; 
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RETURN FALSE; 
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END; 
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116 1 SIO$VALID$REG: 

/• THIS ROUTINE CHECKS IF THE TWO INPUT PARMS TAKEN TOGETHER FORM 
A VALID REGISTER NAME. IT SEARCHES THE REGISTER TABLE AND IF A 
MATCH IS FOUND, THE GLOBAL 'REG$INDEX' IS SET TO THE INDEX OF THE 
VALID REGISTER AND THE PROCEDURE RETURNS TRUE. IF NO MATCH THE 
PROCEDURE RETURNS FALSE AND REG$INDEX IS UNDEFINED. »/ 
PROCEDURE (C1.C2) BYTE; 
DECLARE (C1.C2) BYTE; 
DO REG$INDEX=0 TO 13; 

IF C1=REG(REG$INDEX*2) AND C2=REG(REG$INDEX»2+1 ) THEN 
RETURN TRUE; 
END; 

RETURN FALSE; 
END; 

124 1 SIOJCRLF: 

/» THIS ROUTINE OUTPUTS A CR AND LF TO THE OUTPUT PORT. •/ 
PROCEDURE; 

125 2 CALL SIO*OUT$CHAR(ASCR); 

126 2 CALL SI0$OUT$CHAR(ASLF) ; 

127 2 END; 

128 1 SIO$TEST$WORD$MODE: 

/* THIS PROCEDURE TESTS FOR A 'W FOLLOWING THE COMMAND AND IF SO 
SETS THE FLAG 'WORD$M0DE TO TRUE OR FALSE OTHERWISE. SCANS OFF 
OPTIONAL ELANK FOLLOWING COMMAND. */ 
PROCEDURE; 

WORD$MODE = FALSE; 
CALL SIO$GET$CHAR; 
IF CHAR=*W' THEN 
DO; 

WORD$MODE = TRUE; 
CALL SIO$GET$CHAR; 
END; 
IF CHAR=ASBL THEN 

CALL SIO$GET$CHAR; 
END; 

139 1 SIO$SCAN*BLANK: 

/* THIS ROUTINE IS CALLED AFTER A COMMAND LETTER TO SCAN OFF THE 

OPTIONAL BLANK. «/ 
PROCEDURE; 

CALL SIO$GET$CHAR; 
IF CHAR=ASBL THEN 

CALL SIO$GET$CHAR; 
END; 

141 1 SIO$SECOND$DELAY: 

/* THIS ROUTINE CAUSES A DELAY OF APPROXIMATELY 1 SECOND. •/ 
PROCEDURE; 
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145 2 DECLARE II WORD; 

1 46 2 DO II = 1 TO 0F000H; END; 

148 2 END SIO$SECOND$DELAY; 

149 1 SI0$MS$DELAY: 

/« THIS ROUTINE CAUSES A DELAY OF 1 OR MORE MILLESECONDS ; THE NUMBER 

IS PASSED BY THE CALLER, THE DELAY IS APPROXIMATE. »/ 
PROCEDURE (N); 

DECLARE (N,I,J) BYTE; 

DO I = 1 TO N; 

DO J = 1 TO 55; END; 

END; 
END SIO$MS$DELAY; 

/<ilil(il>liiiililti«l»»lfiii«««««<»>>»ii 

» ARGUMENT EXPRESSION EVALUATOR SECTION * 

• liif«iitl««t«*«(l«l«lii<i«l<Ilililiiilttl/ 

156 1 SI0$GET$W0RD: 

/* THIS ROUTINE READS CHARS FROM THE INPUT PORT AND EVALUATES 
AN EXPRESSION CONSISTING OF '+-' AND OPERANDS OF HEX NUMBERS 
AND REGISTER NAMES. «/ 
PROCEDURE WORD; 

DECLARE (SAVE.W) WORD, (OPER.T) BYTE; 
OPER = •+'; 
W = 0; 

DO WHILE TRUE; 
T = CHAR; 
SAVE = 0; 

IF SIO$VALID$REG$FIRST THEN 
DO; 

CALL SIO$GET$CHAR; 
IF SIO$VALID$REG(T,CHAR) THEN 
DO; 

SAVE = REG$SAV(REG$INDEX) ; 
CALL SIO$GET$CHAR; 
GOTO EVAL; 
END; 
ELSE 

SAVE = SIO$HEX(T) ; 
END; 
IF NOT(SIO$VALID$HEX(T)) THEN GOTO ERROR; 
DO WHILE SIO$VALID$HEX(CHAR); 

SAVE = SHL(SAVE,4) + SI0$HEX( CHAR ) ; 
CALL SIO$GET$CHAR; 
END; - 
EVAL: IF OPER='+' THEN 
W = W + SAVE; 
ELSE 

W = W - SAVE; 
IF CHAR=ASCR OR CHAR=': ! OR CHAR=',' THEN 

RETURN W; 
IF CHAR='+' OR CHAR='-' THEN 

OPER = CHAR; 
ELSE 
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GOTO ERROR; 
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191 1 SIO$GET$ADDR: 

/* THIS ROUTINE ACCEPTS A VALID ADDRESS EXPRESSION CONSISTING 

OF AN OPTIONAL <SEG>: AND AN DISPLACEMENT. «/ 
PROCEDURE(PTR,DEFAULT$BASE) ; 

192 2 DECLARE PTR POINTER, DEFAULT$BASE WORD, 

ARG BASED PTR STRUCTURE (OFF WORD, SEG WORD); 

ARG.SEG = DEFAULT$BASE; 
ARG. OFF = SIO$GET$WORD; 
IF CHAR=' : ' THEN 

DO; 

CALL SIO$GET$CHAR; 

ARG.SEG = ARG. OFF; 

ARG. OFF = SIO$GET$WORD; 

IF CHAR=':' THEN GOTO ERROR; 

END; 
END; 

20U 1 SIO$UPDATE$IP: 

/* THIS PROCEDURE IS CALLED BY SINGLE STEP AND GO TO OUTPUT THE CURRENT 

IP AND INSTRUCTION BYTE AND OPEN THE IP FOR INPUT. «/ 
PROCEDURE; 

CALL SIO$OUT$BLANK; 

CALL SIO$OUT$WORD(IP); 

CSIP.SEG = CS; 

CSIP.OFF = IP; 

CALL SI0$0UT$CHAR( '-' ) ; 

CALL SIO$OUT$BLANK; 

CALL SI0$OUT$BYTE$PTR(MEM0RY$CSIP$PTR) ; 

CALL SI0$0UT$BLANK; 

CALL SIO$GET$CHAR; 

IF CHARO',' AND CHAROASCR THEN CALL SIO$GET$ADDR ( gCSIP , CS ) ; 
END ; 

fmHHMIHMmi«»MHIIIH.«M.IMHHH. 

* DEVICE INITIALIZATION SECTION » 

• »<fHli>il<lii«l«HltlI»Iiti«««llll><ll«II/ 

217 1 SIO$RESET$USART: 

/« THIS PROCEDURE RESETS THE 8251A USART */ 
PROCEDURE; 

218 2 OUTPUT(SIO$STAT$PORT) = OH; 

219 2 CHAR = 0; /* DELAY «/ 

220 2 OUTPUT(SI0$STAT$PORT) r OH; 

221 2 CHAR = 0; /* DELAY */ 

222 2 OUTPUT(SIO$STAT$PORT) = OH; 

223 2 CHAR = 0; /* DELAY */ 

22 1 ! 2 0UTPUT(SIO$STAT$P0RT) = SI0$RESET; 

225 2 END SI0$RESET$US ART ; 
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226 1 SIO$INIT$MODE: 

/* INITIALIZES THE INTERFACE FOR THE LOAD AND TRANSFER COMMANDS »/ 
PROCEDURE; 

MODE = SAVE$MODE; 

IF MODE = PARALLEL THEN OUTPUT (PI$PORTC$CTL) = PI$M2M1; 
ELSE 
DO; 

IF (MODE AND TAPE) = THEN 
IF BRF = B600 THEN 
DO; 
/« MUST BE ON-LINE TO INTELLEC SERIES II WITH 
INTEGRATED CRT. JACK-UP BAUD RATE, */ 
CALL SIO$MS$DELAY(200); 
CALL SIO$RESET$USART; 

OUTPUT(SIO$STAT$PORT) = SIO$CRT$MODE ; 
OUTPUT(IT$CONTROL$PORT) = IT$C2M3; 
OUTPUT(SIO$STAT$PORT) = SIO$CRT$CMD; 
0UTPUT(IT$CTR2$P0RT) = LOW(B9600); 
0UTPUT(IT$CTR2$P0RT) = HIGH(B9600); 
SWITCH$BAUD = TRUE; 
END; 
END; 
END SIO$INIT$MODE; 

/XXIXX*xxxxxxxxxxxx*x»xx*xxxxxxx«xxxxxxxxxxxxxxxx 

* PAPER TAPE, SERIAL, PARALLEL READ SECTION * 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXIXXXXXXXXXXX/ 

245 1 SIO$READ$CHAR: 

/* THIS PROCEDURE READS A BYTE FROM THE TTY PAPER TAPE READER, 
THE SERIAL INTERFACE TO AN INTELLEC, OR THE PARALLEL 
INTERFACE TO AN INTELLEC, DEPENDING UPON THE SETTING OF 
MODE. «/ 
PROCEDURE BYTE; 

DECLARE II WORD; 
IF (MODE AND TAPE) <> THEN 
DO; 

DO WHILE (INPUT(SIO$STAT$PORT) AND SIO$TXE) = 0; END; 
OUTPUT(SIO$STAT$PORT) = SIO$DTR$ON; /« DTR ON */ 

CALL SIO$MS$DELAY(40); 

OUTPUT(SI0$STAT$PORT) = SIO$DTR$OFF; 
DO II = 1 TO MAX$DELAY; 

IF (INPUT(SIO$STAT$PORT) AND SIO$RXRDY) <> THEN GOTO READY2; 
END; 

GOTO ERROR; 
READY2: 

DO WHILE (INPUT(SIO$STAT$PORT) AND SIOJRXRDY) =0 ; END; 
CHAR = INPUT(SIO$DATA$PORT) AND 7FH ; 
END; 
ELSE IF (MODE AND SERIAL) <> THEN 
DO; 
LOOP: DO II = 1 TO MAX$DELAY; 

IF SIO$CHAR$RDY THEN GOTO READY; 
END; 

GOTO ERROR; 
READY: CALL SIO$CHECK$CONTROL$CHAR ; 
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IF CHAR = 11H THEN GOTO LOOP; /* GET ANOTHER IF CTL-Q */ 
END; 
ELSE 
DO; 
DO II = 1 TO MAX$DELAY; 

IF SIO$CHAR$RDY THEN CALL SIO$CHECK$CONTROL$CHAR ; 
IF (INPUT(PI$PORTC$STAT) AND PI$IBF) <> THEN GOTO READY1; 
END; 

GOTO ERROR; 
READY1: CHAR = NOT INPUT ( PI$PORTB ) ; 
END; 
RETURN CHAR; 
END SIO$READ$CHAR; 

286 1 SIO$READ$BYTE: 

/* THIS ROUTINE READS TWO HEX BYTES AND RETURNS THEIR BINARY 

BYTE VALUE. «/ 
PROCEDURE BYTE; 

DECLARE T BYTE; 

T = LOW(SIO$HEX(SIO$READ$CHAR) ); 

T r SHL(T,4) + LOW(SIO$HEX(SIO$READ$CHAR)); 

CHECK$SUM = CHECK$SUM + T; 

RETURN T; 
END; 

293 1 SI0*READ$WORD: 

/• THIS ROUTINE READS FOUR HEX BYTES AND RETURNS THEIR BINARY 

WORD VALUE. «/ 
PROCEDURE WORD; 

DECLARE T BYTE; 
T = SIO*READ$BYTE; 

RETURN SHL(DOUBLE(T),8) + DOUBLE (SIO$READ$B YTE ) ; 
END; 

298 1 SIO$WRITE$HEX$FILE: 

/* THIS ROUTINE IS CALLED BY THE WRITE AND TRANSFER COMMANDS TO 
COMPLETE DECODING THE COMMAND LINE AND OUTPUT A HEX FILE. 
IT OUTPUTS LEADING NULLS, START ADDRESS RECORD (8086 ONLY), 
EXTENDED ADDRESS RECORDS (8086 ONLY), DATA RECORDS, EOF RECORD, 
AND TRAILING NULLS. */ 
PROCEDURE; 

DECLARE (LEN, INDEX) WORD, START*REC BYTE; 

DECLARE (FIRST, LAST) STRUCTURE (OFF WORD, SEG WORD); 

CALL SIO$GET$ADDR(eARG1 ,CS) ; 

FIRST. SEG = ARG1.SEG AND OFOOOH; 

FIRST. OFF = ARG1.0FF + SHL ( ARG1 . SEG, 4 ) ; 

IF CARRY THEN 

DO; 

FIRST. SEG = FIRST. SEG + 1000H; 

IF CARRY THEN GOTO ERROR; 

END; 
IF CHARO',' THEN GOTO ERROR; 
CALL SIO$GET$CHAR; 
IF MODE$8086 THEN 

DO; 

CALL SIO$GET$ADDR(§ARG2,ARG1 .SEG) ; 

LAST. SEG = ARG2.SEG AND OFOOOH; 
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LAST. OFF = ARG2.0FF + SHL ( ARG2 . SEG , 4 ) ; 

IF CARRY THEN 
DO; 

LAST. SEG = LAST. SEG + 1000H; 
IF CARRY THEN GOTO ERROR; 
END; 

/* CHECK IF END > START */ 

IF LAST. SEG < FIRST. SEG THEN GOTO ERROR; 

IF LAST. SEG = FIRST. SEG THEN 

IF LAST. OFF < FIRST. OFF THEN GOTO ERROR; 

/* CONVERT END ADDRESS FOR USE IN LOOPING */ 

LAST. SEG = ARG2.SEG + SHR ( ARG2.0FF, 4) - ARG1.SEG; 

LAST. OFF = SHL(LAST.SEG,4) + (ARG2.0FF AND OFH ) ; 

LAST. SEG = (LAST. SEG AND OFOOOH) + ARG1.SEG; 

END; 
ELSE DO; 

ENDJOFF = SIO$GET$WORD; 

IF END$OFF<ARG1.0FF THEN GOTO ERROR; 

LAST. SEG = ARG1.SEG; 

LAST. OFF = ENDJOFF; 

END; 
IF CHAR <> ASCR THEN 

DO; 

START$REC = TRUE; 

CALL SIO$GET$CHAR; 

IF MODE$8086 THEN CALL SIO$GET$ADDR ( §ARG3 , CS ) ; 

ELSE ARG3-OFF = SIO$GET$WORD ; 

END; 
ELSE 

DO; 

START$REC = FALSE; 

ARG3-OFF = 0; 

END; 
IF CHAROASCR THEN GOTO ERROR; 
CALL SIO$CRLF; 
CALL SIO$INIT$MODE; 
CALL SI0$SEC0ND$DELAY; 

DO 1=1 TO 60; I* LEADING NULLS •/ 

CALL SIO$OUT$CHAR(0); 
END; 
CALL SIO$CRLF; 

IF MODE$8086 THEN 
DO; 
IF START$REC THEN 

DO; 

CALL SIO$OUT$HEADER(04,0,03) ; /• START ADDRESS RECORD */ 

CALL SI0$0UT$W0RD(ARG3»SEG) ; 

CALL SI0$0UT$W0RD(ARG3.0FF); 

CALL SIO$OUT$BYTE(CHECK$SUM) ; 

CALL SIO$CRLF; 

ARG3.0FF = 0; 

END; 
END; 

373 2 L00P1: 
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IF MODE$8086 THEN DO; 

CALL SIO$OUT$HEADER(02,0,02); /* EXTENDED ADDRESS RECORD «/ 

CALL SIO$OUT$WORD(ARG1.SEG); 

CALL SIO$OUT$BYTE(CHECK$SUM) ; 

CALL SIO$CRLFj 

END; 
IF LAST.SEG = ARG1.SEG THEN END$0FF = LAST. OFF; 
ELSE END$OFF = OFFFFH; 

LEN = STANDARD$LEN; /» DATA RECORD •/ 

LOOP: INDEX = END$OFF - ARG1.0FF; 

IF INDEX<STANDARD$LEN-1 THEN LEN = INDEX+1; 
CALL SIO$OUT$HEADER(LEN,ARG1 .OFF, 00) ; 
DO 1=1 TO LEN; 

CALL SI0$0UT$BYTE$PTR(MEM0RY$ARG1$PTR) ; 

ARG1.0FF = ARG1.0FF + 1; 
END; 

CALL SI0$OUT$BYTE(CHECK$SUM) ; 
CALL SIO$CRLF; 

IF END$OFF <> ARG1.0FF-1 THEN GOTO LOOP; 
IF LAST.SEG <> ARG1.SEG THEN 

DO; 

ARG1.SEG = ARG1.SEG + 1000H; 

ARG1.0FF = 0; 

GOTO L00P1 ; 

END; 

CALL SIO$0UT$HEADER(00,ARG3.0FF,01 ) ; /• EOF RECORD */ 
CALL SIO$OUT$BYTE(CHECK$SUM); 
CALL SIO$CRLF; 

DO 1=1 TO 60; /* TRAILING NULLS */ 

CALL SIO$OUT$CHAR(0); 
END; 

MODE = SERIAL; 
END; 

110 1 SIO$READ$HEX$FILE: 

/* THIS ROUTINE IS CALLED BY THE READ AND LOAD COMMANDS TO 

COMPLETE DECODING THE COMMAND LINE AND READ A HEX FILE. «/ 
PROCEDURE; 

DECLARE (REC$TYPE,LEN,I,T) BYTE, OFFSET WORD; 

IF CHAR <> ASCR THEN CALL SIO$GET$ADDR (6ARG2, ) ; /* GET BIAS ADDR »/ 

ELSE ARG2.SEG.ARG2.0FF = 0; 

ARG1.SEG = ARG2.SEG; /» SEGMENT FOR 8080 FORMAT FILE «/ 

IF CHAROASCR THEN GOTO ERROR; 

CALL SIO$CRLF; 

CALL SIO$INIT$MODE; 
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LOOP: 



DO WHILE SIOjREADtCHARO' : • ;END; 
CHECKSUM = 0; 
LEN = SIO$READ$BYTE; 
OFFSET = SIO$READ$WORD; 
ARG1.0FF = OFFSET + ARG2.0FF; 
REC$TYPE = SIO$READ$BYTE; 

IF HEC$TYPE=03 THEN /* START ADDR TYPE «/ 
DO; 
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CS = SIO$READ$WORD; 
IP = SIO$READ$WORD; 
END; 
IF REC$TYPE=02 THEN /* EXTENDED ADDR TYPE */ 

ARG1.SEG = SIO$READ$WORD + ARG2.SEG; 
IF REC$TYPE=01 THEN IF OFFSET <> THEN IP = OFFSET; /• EOF RECORD */ 
IF REC$TYPE=00 THEN /* DATA TYPE */ 
DO 1=1 TO LEN; 

T,MEM0RY$ARG1 = SIO$READ$BYTE ; 
IF MEM0RY$ARG1OT THEN GOTO ERROR; 
ARG1.0FF = ARG1.0FF + 1 ; 
END; 
T = SI0$READ$EYTE; /* FETCH CHECKSUM */ 

IF CHECK$SUM<>0 THEN GOTO ERROR; 

IF REC$TYPE<>01 AND LENOO THEN GOTO LOOP; /* EOF */ 
MODE = SERIAL; 

CALL SIO*OUT$CHAR(0); /» DELAY FOR LAST CR, LF SENT */ 
CALL SIO$OUT$CHAR(0); /* BY INTELLEC «/ 
END; 



» INTERRUPT AND RESTORE/EXECUTE SECTION * 

**tt****************»»»**««*t***i******«*«***/ 

453 1 SAVE$REGISTERS: 

/* THIS ROUTINE IS USED TO SAVE THE STACKED USER'S REGISTERS IN THE 

MONITOR'S SAVE AREA. */ 
PROCEDURE; 

BP = MEMORY$USERSTACK; 
USERSTACK.OFF = USERSTACK. OFF + 4; 

DO 1=0 TO 10; /• POP REGISTERS OFF OF STACK «/ 

REG$SAV(REG$ORD(I)) = MEMORY$USERSTACK ; 
USERSTACK.OFF = USERSTACK.OFF + 2; 
END; 

SS = USERSTACK. SEG; 
SP = USERSTACK.OFF; 

462 2 END; 

463 1 RESTORE$EXECUTE: 

/* THIS PROCEDURE RESTORES THE STATE OF THE USER MACHINE AND 
PASSES CONTROL BACK TO THE USER PROGRAM. IT CONTAINS A 
MACHINE LANGUAGE SUBROUTINE TO PERFORM THE POPPING OF THE 
USER REGISTERS AND TO EXECUTE AN 'IRET' TO TRANSFER CONTROL 
TO THE USER'S PROGRAM. */ 

PROCEDURE; 

464 2 DECLARE RESTORE$EXECUTE$CODE (* ) BYTE DATA 
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C08BH, 


,0ECH, 




/« MOV BP, 


,SP 


*/ 


08BH, 


,046H, 


002H, 


/* MOV AX, 


./BP/.PARM2 


*/ 


08BH, 


,05EH, 


004H, 


/* MOV BX, 


./BP/.PARM1 


*/ 


08EH, 


r 0D0H, 




/* MOV SS, 


,AX 


*/ 


08BH, 


,0E3H, 




/* MOV SP, 


, BX 


*/ 


05DH, 


I 




/* POP BP 




*/ 


05FH, 


' 




/* POP DI 




*/ 


05EH, 






/* POP SI 




*/ 



465 


2 


466 


2 


467 


2 


468 


3 


469 


3 


470 


3 


471 


2 


472 


2 


473 


2 


474 


2 



PL/M-86 COMPILER ISBC 86/12 MONITOR p AGE 1? 

05BH, /» POP BX */ 

05AH, /» POP DX */ 

059H, /« POP CX */ 

058H, /» POP AX «/ 

01FH, /• POP DS «/ 

007H, /« POP ES »/ 

OCFH), /« IRET «/ 

RESTORE$EXECUTE$CODE$PTR WORD DATA ( . RESTORE$EXECUTE$CODE ) ; 

USERSTACK.SEG = SS; 
USERSTACK.OFF = SP ; 
DO 1=0 TO 10; /* PUSH USER'S REGISTERS ONTO HIS STACK «/ 

USERSTACK.OFF = USERSTACK. OFF - 2; 

MSMORY$USERSTACK = REG$SAV (REG$ORD ( 1 0-1 ) ) ; 

END; 

USERSTACK.OFF s USERSTACK.OFF - 2; 

MEMORY$USERSTACK = BP; 

CALL RESTORE$EXECUTE$CODE$PTR(USERSTACK. OFF, USERSTACK.SEG) J 
END; . ;, 

475 1 INTERRUPT1$ENTRY: 

/• THIS PROCEDURE IS CALLED WHEN THE CPU IS INTERRUPTED BY EXECUTING 

AN INSTRUCTION WITH THE TRAP BIT SET (SINGLE STEP). »/ 
PROCEDURE INTERRUPT 1; 

USERSTACK.OFF = STACKPTR ; /« CHANGE TO MONITOR'S STACK */ 

USERSTACK.SEG = STACKBASE; 

STACKPTR = MONITOR$STACKPTR; 

STACKBASE = MONITOR$STACKBASE ; 

CALL SAVE$REGISTERS; 

FL = FL AND (NOT STEP$TRAP); /» CLEAR STEP FLAG */ 

IF LAST$COMMANDOSS$COMMAND THEN /« CONTINUE IF NOT SS «/ 

CALL RESTORE*EXECUTE; 
CSIP.OFF = IP; 
CSIP.SEG = CS; 
IF MEMORY$CSIP$PTR = INT3$PTR THEN 

CALL RESTORE$EXECUTE; /» EXIT TO PROCESS INT 3 •/ 
CALL SI0$CRLF; 
CALL SIO$UPDATE$IP; 
IF CHAR:: • , ' THEN 

DO; 

IP = CSIP.OFF; 

CS = CSIP.SEG; 

FL = FL OR STEP$TRAP; /« SET STEP FLAG */ 

CALL RESTORE$EXECUTE; 

END; 
IF CHAROASCR THEN GOTO ERROR; 
GOTO NEXT$COMMAND; 
END; 

501 1 INTERRUPT3$ENTRY: 

/« THIS PROCEDURE IS CALLED WHEN THE CPU EXECUTES A 'INT 3' INSTRUCTION. 
THE MONITOR INSERTS THIS (OCCH) FOR A BREAKPOINT. ALSO A NMI 
INTERRUPT OR A USER SOFTWARE INTERRUPT MAY CAUSE THIS PROCEDURE TO BE 
CALLED. «/ 

PROCEDURE INTERRUPT 3; 

502 2 USERSTACK.OFF = STACKPTR; 

503 2 USERSTACK.SEG = STACKBASE; 
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STACKPTR = MONITOR$STACKPTR; 
STACKBASE = MONITOR$STACKBASE ; 
CALL SAVE$REGISTERS; 
CALL SIO$CRLF; 
GOTO AFTER$INTERRUPT; 
END; 

510 1 INTERRUPT32$ENTRY: 

/« THIS ROUTINE IS EXECUTED WHEN THE CPU RECEIVES AN INTERRUPT FROM 

THE 8259A. */ PROCEDURE INTERRUPT 32; 

USERSTACK.OFF = STACKPTR; 

USERSTACK.SEG = STACKBASE; 

STACKPTR = MONITOR$STACKPTR; 

STACKBASE = MONITOR$STACKBASE ; 

CALL SAVE$REGISTERS; 

CALL SIO$CRLF; 

CALL SIO$OUT$CHAR('I' ); 

CALL SIO$OUT$CHAR( '=• ); 

OUTPUT(IC$PORTA) = IC$OCW3; 

CHAR = INPUT(IC$PORTA); 

J = 1 ; 

DO I = TO 7; 

IF (CHAR AND J) <> THEN GOTO LI; 
J = SHL(J, 1) ; 

END; 
L1: CALL SIO$OUT#BYTE(I) ; 

CALL SIO$OUT*BLANK; 

OUTPUT(IC$PORTA) = IC$EOI; 

GOTO AFTER$INTERRUPT; 
END INTERRUPT$32$ENTRY; 

532 1 INIT$INT$VECTOR: 

/* THIS ROUTINE INITIALIZES AN INTERRRUPT VECTOR AS FOLLOWS: THE OFFSET 
FROM THE ADDRESS OF ' INT$ROUTINE ' CORRECTED BY THE APPROPRIATE 
NUMBER OF BYTES FOR THE INTERRUPT PLM PROLOGUE, THE SEGMENT FROM THE 
CURRENT CS REGISTER IS DETERMINED BY A MACHINE LANGUAGE CODED 
SUBROUTINE. */ 

PROCEDURE ( INT$ VECTOR $PTR , INT$ROUTINE$OFFSET ) ; 

533 2 DECLARE INT$VECTOR$PTR POINTER, INT$ROUTINE$OFFSET WORD, 

VECTOR BASED INT$VECTOR$PTR STRUCTURE (OFF WORD, SEG WORD), 

CORRECTION LITERALLY '19H', /« OFFSET FOR PROLOGUE «/ 

INIT$INT$VECTOR$CODE(«) BYTE DATA 

(055H, /* PUSH BP «/ 

08BH.0ECH, /* MOV BP,SP «/ 

08CH.0C8H, /» MOV AX.CS »/ 

0Ci|H,05EH,001H, /* LES BX, /BPAPARM 1 */ 

026H,089H,007H, /» MOV ES:W/BX/,AX »/ 

05DH, /» POP BP »/ 

0C2H,004H,000H), /* RET 1 «/ 

INIT$INT$VECTOR$CODE$PTR WORD DATA ( .INIT$INT$VECTOR$CODE ) ; 

531 2 CALL INIT$INT$VECTOR$CODE$PTR(gVECTOR.SEG); /* SEGMENT PORTION »/ 

535 2 VECTOR. OFF = INT$ROUTINE$OFFSET - CORRECTION; /» OFFSET PORTION */ 

536 2 END; 
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COMMAND MODULE 



ABSTRACT 



THIS MODULE CONTAINS ALL THE COMMANDS IMPLEMENTED AS INDIVIDUAL PROCEDURES 
AND CALLED FROM THE OUTER BLOCK OF THE COMMAND DISPATCH LOOP. 

MODULE ORGANIZATION 

THIS MODULE CONTAINS THE FOLLOWING SECTIONS: 



1. COMMANDS SECTION 
SIO$GO 

SIO$SINGLE$STEP 
SIO$EXAM$MEM 
SIO$EXAM$REG 
SI04MOVE 
SIO$DISPLAY 
SIO$COMPARE 
SIO$FIND 
SIO$HEX$ARITH 
SIO$INPUT 
SIO$OUTPUT 
SIO$WRITE 
SIO$READ 
SIO$TRANSFER 
SIO$LOAD 
:. COMMAND DISPATCH ( 
NEXT$COMMAND 
ERROR 



«/ 



GO 

SINGLE STEP 
SUBSTITUTE MEMORY 
EXAMINE REGISTER 
MOVE 

DISPLAY BYTES 
COMPARE MEMORY 
FIND BYTE/WORD 
PERFORM HEX ARITHMETIC 
INPUT PORT 
OUTPUT PORT 
WRITE DATA RECORDS 
READ DATA RECORDS 
TRANSFER FILE 
LOAD FILE 
OUTER BLOCK, MAIN PROGRAM LOOP) 
DISPATCH 
ERROR ROUTINE 



/HltlHKIItfOtllltK 

« COMMAND SECTION « 



537 



538 
539 
540 
511 
512 
543 
545 
546 
547 
549 
550 
551 
552 
553 



SIO$GO: 

/« IMPLEMENTS THE 'GO' COMMAND. THE USER MAY SPECIFY A NEW 

IP:PC AND AN OPTIONAL BREAKPOINT. «/ 
PROCEDURE; 

CALL SIO$UPDATE$IP; 

IF CHAH=',< THEN /* BREAKPOINT */ 

DO; 

CALL SIO$GET$CHAR; 

CALL SIO$GET$ADDR(§BRK1,CSIP.SEG); 

IF (CHAROASCR) AND (CHARO',') THEN GOTO ERROR; 
BRK1$SAVE = MEM0RY$BRK1; 
MEYORY$BRK1 = BREAKlflNST; 

IF MEM0RY$BRK1OBREAK$INST THEN GOTO ERROR; 
BRK1$FLAG = TRUE; 
IF CHAR = ' , ' THEN 
DO; 

CALL SIO$GET$CHAR; 
CALL SIO$GET$ADDR(gBRK2,CSIP.SEG); 
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567 
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2 



IF CHAR <> ASCR THEN GOTO ERROR; 

BRK2$SAVE = MEM0RY$BRK2; 

MEM0RY$BRK2 = BREAK$INST; 

IF MEM0RY$BRK2 <> BREAK$INST THEN GOTO ERROR; 

BRK2$FLAG = TRUE; 

END; 
END; 
ELSE /• NO BREAKPOINT */ 

563 2 IF CHAROASCR THEN GOTO ERROR; 

CALL SIO$CRLF; 
IP = CSIP.OFF; 

no _ pQjp ^Ffj* 

FL = FL AND (NOT STEP$TRAP); /* CLEAR IF SET */ 

CALL REST0RE$EXECUTE; 
END; 

571 1 SIO$SINGLE$STEP: 

/* IMPLEMENTS THE SINGLE STEP COMMAND. DISPLAYS IP AND THE 

CURRENT INSTRUCTION BTYE, OPENS CS:IP FOR INPUT. DEPRESSING 

COMMA CAUSES THE MONITOR TO SINGLE STEP THE INSTRUCTION, AND 

PERIOD TERMINATES THE COMMAND. •/ 
PROCEDURE; 

CALL SIO$UPDATE$IP; 

IF CHARO',' THEN GOTO ERROR; 

IP = CSIP.OFF; 

CS = CSIP.SEG; 

FL = FL OR STEP$TRAP; 

CALL REST0RE*EXECUTE; 
END; 



RRO 1 S IO&EXAM&MEM I 

/• IMPLEMENTS THE EXAMINE MEMORY COMMAND. */ 
PROCEDURE; 

DECLARE W WORD; 
CALL SIO$TEST$WORD$MODE; 
CALL SI0$GET$ADDR(@ARG1 ,CS); 
IF CHARO',' THEN GOTO ERROR; 
DO WHILE TRUE; 

CALL SIO$OUT$BLANK; 
IF W0RD$M0DE THEN 

CALL SI0$OUT$W0RD(MEM0RY$WORD$ARG1 ) ; 
ELSE 

CALL SI0$0UT$BYTE$PTR(MEM0RY$ARG1$PTR); 

CALL SI0$0UT$CHAR('-' ); 
CALL SI0$0UT$BLANK; 
CALL SIO$GET$CHAR; 
IF CHAR=ASCR THEN RETURN; 
IF CHARO 1 , • THEN 
DO; 

W = SIO$GET$WORD; 

IF (CHAR <> ',') AND (CHAR <> ASCR) THEN GOTO ERROR; 
IF W0RD$M0DE THEN 
DO; 

MEM0RY$W0RD$ARG1 = W; 
IF MEM0RY$W0RD$ARG1OW THEN GOTO ERROR; 
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606 5 END; 

ELSE 
DO; 

MEMORY$ARG1 = LOW(W); 

IF MEM0RY$ARG1OL0W(W) THEN GOTO ERROR; 
END; 
END; 
IF CHAR=ASCR THEN RETURN; 
IF WORDJMODE THEN 

ARG1.0FF = ARG1.0FF + 2; 
ELSE 

ARG1.0FF = ARG1.0FF + 1; 
CALL SIO*CRLF; 

CALL SIO$OUT$WORD(ARG1.0FF) ; 
END; 
END; 

622 1 SIO$EXAM$REG: 

/• IMPLEMENTS THE EXAMINE REGISTER COMMAND. SCANS FOR A VALID 

REGISTER NAME AND DISPLAYS THE VALUE OF THAT REGISTER WHICH IS 
OPTIONALLY OPENED FOR INPUT. COMMA INCREMENTS TO NEXT REGISTER 
UNLESS IT IS 'FL' WHICH TERMINATES AS DOES CR. */ 
PROCEDURE; 

DECLARE (T,I) BYTE; 
DECLARE SAVE WORD; 
CALL SIO$SCAN$BLANK; 
IF CHAR=ASCR THEN 
DO; 

CALL SIO$CRLF; 
DO 1=0 TO 13; 

CALL SIO$OUT$BLANK; 
CALL SI0$0UT$CHAR(REG(I»2)); 
CALL SIO$OUT$CHAR(REG(I*2+1)); 
CALL SIO$OUT$CHAR( ■ = • ); 
CALL SIO$OUT$W0RD(REG*SAV(I)) ; 
IF 1=6 THEN CALL SI0$CRLF; 
END; 
RETURN; 
END; 
IF N0T(SIO$VALID$REG$FIRST) THEN GOTO ERROR; 
T = CHAR; 

CALL SIO*GET$CHAR; 

IF NOT(SIO$VALID$REG(T,CHAR)) THEN GOTO ERROR; 
I = REGtINDEX; 
DO WHILE TRUE; 

CALL SI0$OUT$CHAR('=' ) ; 
CALL SIO$OUT$WORD(REG$SAV(I)) ; 
CALL SIO$OUT$CHAR( •-' ); 
CALL SIO*OUT$BLANK; 
CALL SIO$GET$CHAR; 
IF CHARO',' AND CHAROASCR THEN 
DO; 

SAVE = SIO$GET$WORD; 

IF (CHAR <> ',' ) AND (CHAR <> ASCR) THEN GOTO ERROR; 
REG$SAV(I} = SAVE; 
END; 
IF CHAR=ASCR OR 1=13 THEN RETURN; 



623 


2 


624 


2 


625 


2 


626 


2 


627 


2 


628 


3 


629 


3 


630 


4 


631 


4 


632 


4 


633 


4 


634 


4 


635 


4 


637 


4 


638 


3 


639 


3 


640 


2 


642 


2 


643 


2 


644 


2 


646 


2 


647 


2 


648 


3 


649 


3 


650 


3 


651 


3 


652 


3 


653 


3 


654 


3 


655 


4 


656 


4 


658 


4 


659 


4 


660 


3 



PL/M-86 COMPILER ISBC 86/12 MONITOR PAGE 22 



662 


3 




1=1+1; 


663 
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CALL SIO$CRLF; 


664 


3 




CALL SI0$0UT$CHAR(REG(I*2)); 


665 


3 




CALL SI0$0UT$CHAR(REG(I*2+1)); 


666 


3 




END; 


667 


2 


END 


! 



668 1 SIO$MOVE: 

/» IMPLEMENTS THE MOVE COMMAND. ACCEPTS 3 ARGUMENTS AMD MOVES THE 

BLOCK OF MEMORY SPECIFIED BY ARG1-ARG2 TO ARG3. ARG2<ARG1 OR THERE 
IS A DIFFERENCE WHEN THE BYTE IS READ BACK, THEN ERROR. «/ 
PROCEDURE; 

CALL SIO$SCAN$BLANK; 

CALL SIO$GET$ADDR(§ARG1,CS); /» FIRST ARGUMENT */ 

IF CHARO',' THEN GOTO ERROR; 

CALL SIO$GET$CHAR; 

END$OFF = SIO$GET$WORD; /« SECOND ARGUMENT »/ 

IF END$OFF<ARG1.0FF THEN GOTO ERROR; 

IF CHARO*,' THEN GOTO ERROR; 

CALL SIO$GET$CHAR; 

CALL SIO$GET$ADDR(§ARG3,CS); /* THIRD ARGUMENT */ 

IF CHAROASCR THEN GOTO ERROR; 

CALL SIO$CRLF; 
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LOOP: 



MEMORY$ARG3 = MEMORY$ARG1; 

IF MEMORY*ARG3<>MEM0RY$ARG1 THEN GOTO ERROR; 
IF ARG1.0FF = END$0FF THEN RETURN; 
ARG1.0FF r ARG1.0FF + 1; 
ARG3.0FF = ARG3-0FF + 1; 
GOTO LOOP; 
END; 

693 1 SIO$DISPLAY: 

/* IMPLEMENTS THE DISPLAY BYTE COMMAND. IF CALLED WITH 1 PARM THEN 

OUTPUTS A SINGLE BYTE. IF CALLED WITH 2 PARMS THEN OUTPUTS THE RANGE 
BETWEEN THE TWO ADDRESSES. IF OFFSET<BEGIN THEN OUTPUTS ONLY A SINGLE 
BYTE. «/ 
PROCEDURE; 

DECLARE T BYTE; 
CALL SIO$TEST$WORD$MODE; 
CALL SIO$GET$ADDR(gARG1 ,CS); 
IF CHAR=ASCR THEN 

END$OFF = ARG1.0FF; 
ELSE 
DO; 

IF CHARO',' THEN GOTO ERROR; 
CALL SIO$GET$CHAR; 
END$OFF = SIO$GET$W0RD; 

IF END$OFF < ARG1.0FF THEN GOTO ERROR; 
IF CHAROASCR THEN GOTO ERROR; 
END; 
NEWLINE: 

CALL SI0$CRLF; 

CALL SI0$0UT$W0RD(ARG1.0FF) ; 
LOOP: CALL SI0$0UT$BLANK ; 
IF WORD$MODE THEN 
DO; 
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CALL SI0$0UT$W0RD(MEM0RY$W0RD$ARG1 ) ; 

IF ARG1.0FF = END$OFF THEN RETURN; 

ARG1.0FF = ARG1.0FF + 1 ; 

END; 
ELSE 

CALL SIO$0UT$BYTE$PTR(MEM0RY$ARG1$PTR) ; 
IF ARG1 .0FF>=END$0FF THEN RETURN; 
ARG1.0FF = ARG1 .OFF + 1 ; 
T = ARG1.0FF AND OOOFH; 

IF T=0 OR (W0RD$M0DE AND T=1) THEN GOTO NEWLINE; 
GOTO LOOP; 
END; 

728 1 SI0$C0MPARE: 

/* IMPLEMENTS THE COMPARE COMMAND */ 
PROCEDURE; 

CALL SI0$SCAN$BLANK; 
CALL SI0$GET$ADDR(gARG1 ,CS); 
IF CHAR <> ',' THEN GOTO ERROR; 
CALL SIO$GET$CHAR; 
END$OFF = SI0$GET$W0RD; 

IF END$OFF < ARG1.0FF THEN GOTO ERROR; 
IF CHAR <> ',' THEN GOTO ERROR; 
CALL SIO$GET$CHAR; 
CALL SI0$GET$ADDR(@ARG3,CS) ; 
IF CHAR <> ASCR THEN GOTO ERROR; 
CALL SIO$CRLF; 
LOOP: 

IF MEM0RY$ARG1 <> MEM0RY$ARG3 THEN 

DO; 

CALL SI0$OUT$W0RD(ARG1.OFF) ; 

CALL SIO$OUT$BLANK; 

CALL SI0$OUT$EYTE$PTR(MEMORY$ARG1$PTR); 

CALL SIO$OUT$BLANK; 

CALL SIO$OUT$WORD(ARG3.0FF) ; 

CALL SI0$0UT$BLANK; 

CALL SI0$0UT$BYTE$PTR(MEM0RY$ARG3$PTR) ; 

CALL SIO$CRLF; 

END; 
IF ARG1.0FF = END$OFF THEN RETURN; 
ARG1.0FF = ARG1.0FF + 1 ; 
ARG3.0FF = ARG3-0FF + 1 ; 
GOTO LOOP; 
END SIO$COMPARE; 

761 1 SIO$FIND: 

/* IMPLEMENTS THE FIND COMMAND */ 
PROCEDURE; 

DECLARE SEARCH$W0RD WORD; 

CALL SIO$TEST$WORD$MODE; 

CALL SI0$GET$ADDR(§ARG1 ,CS); 

IF CHAR <> ',' THEN GOTO ERROR; 

CALL SIO$GET$CHAR; 

END$OFF = SIO$GET$WORD; 

IF END$OFF < ARG1.0FF THEN GOTO ERROR; 

CALL SIO$GET$CHAR; 

SEARCK$WORD = SI0$GET4W0RD ; 
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773 2 IF CHAR <> ASCR THEN GOTO ERROR; 

775 2 CALL SIO$CRLF; 

776 2 LOOP: 

IF WORD$MODE THEN 

777 2 DO; 

778 3 IF MEMORY$WORD$ARG1 = SEARCH$WORD THEN 

779 3 DO; 

780 4 CALL SIO$OUT$WORD(ARG1>OFF) ; 

781 4 CALL SIO$CRLF; 

782 4 END; 

783 3 END; 

ELSE 

784 2 DO; 

785 3 IF MEMORY$ARG1 = LOW (SEARCH$WORD ) THEN 

786 3 DO; 

787 4 CALL SIO$OUT$WORD(ARG1»OFF); 

788 4 CALL SIO$CRLF; 

789 4 END; 

790 3 END; 

791 2 IF ARG1.0FF = END$OFF THEN RETURN; 

793 2 ARG1.0FF = ARG1.0FF + 1; 

794 2 GOTO LOOP; 

795 2 END SIO$FIND; 

796 1 SIO$HEX$ARITH: 

/• IMPLEMENTS THE HEX ARITHMETIC COMMAND »/ 
PROCEDURE; 

797 2 DECLARE (W1.W2) WORD; 

798 2 CALL SIO$SCAN$BLANK; 

799 2 W1 = SIO$GET$WORD; 

800 2 IF CHAR <> ',' THEN GOTO ERROR; 

802 2 CALL SIO$GET$CHAR ; 

803 2 W2 = SIO$GET$WORD; 

804 2 IF CHAR <> ASCR THEN GOTO ERROR; 

806 2 CALL SIO$CRLF; 

807 2 CALL SI0$0UT$W0RD(W1+W2) ; 

808 2 CALL SIO$OUT$BLANK; 

809 2 CALL SIO$OUT$W0RD(W1-W2); 

810 2 END SIO$HEX$ARITH; 

811 1 SIO$INPUT: 

/* THIS ROUTINE IMPLEMENTS THE 'INPUT' COMMAND. USER SPECIFIES 
A PORT AND THE DATUM OF THE PORT IS DISPLAYED. •/ 
PROCEDURE; 

812 2 DECLARE PORT WORD; 

813 2 CALL SIO$TEST$WORD$MODE; 

814 2 PORT = SIO$GET$WORD; 

815 2 LOOP: 

IF CHARO',' THEN GOTO ERROR; 

817 2 CALL SIO$CRLF; 

818 2 IF WORD$MODE THEN 

819 2 CALL SIO$OUT$W0RD(INWORD(P0RT) ) ; 

ELSE 

820 2 CALL SIO$OUT$BYTE(INPUT(PORT) ) ; 

821 2 CALL SIO$GET$CHAR; 

822 2 IF CHARrASCR THEN RETURN; 
824 2 GOTO LOOP; 
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END; 

SI0$0UTPUT: 

I* THIS ROUTINE IMPLEMENTS THE 'OUTPUT' COMMAND. THE USER SUPPLIED 

DATUM IS OUTPUT TO THE SPECIFIED PORT, */ 
PROCEDURE; 

DECLARE (DATUM, PORT) WORD; 
CALL SIO$TEST$WORD$MODE; 
PORT = SIO$GET$WORD; 
IF CHARO',' THEN GOTO ERROR; 
CALL SIO$GET$CHAR; 
LOOP: 

DATUM = SIO$GET$WORD; 

IF CHAR=':' THEN GOTO ERROR; 

IF WORD$MODE THEN 

OUTWORD(PORT) = DATUM; 
ELSE 

OUTPUT(PORT) = LOW(DATUM); 
IF CHAR=' , ' THEN 

DO; 

CALL SIO$CRLF; 

CALL SIO$OUT$CHAR( '-• ) ; 

CALL SIO*OUT$ELANK; 

CALL SIO$GET$CHAR; 

IF CHAR <> ASCR THEN GOTO LOOP; 

END; 
RETURN; 
END; 

SIO$WRITE: 

/« IMPLEMENTS THE PAPER TAPE WRITE COMMAND 
PROCEDURE; 

CALL SIO$GET$CHAR; 
MODE$8086 = TRUE; 
IF CHAR='X' THEN 
DO; 

MODE$8086 = FALSE; 
CALL SIO$GET$CHAR; 
END; 
IF CHAR=ASBL THEN CALL SIO$GET$CHAR ; 
SAVE$M0DE = TAPE OR SERIAL; 
CALL SIO$WRITE$HEX$FILE; 
RETURN; 
END SIO$WRITE; 

SI0$READ: 

/« THIS PROCEDURE IMPLEMENTS THE PAPER TAPE READ COMMAND */ 
PROCEDURE; 

CALL SIO$SCAN$BLANK; 

SAVE$MODE = TAPE OR SERIAL; 

CALL SIO$READ$HEX$FILE; 

RETURN; 
END SIO$READ; 



*/ 



/* TEST FOR 8080 MODE »/ 
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SIO$TRANSFER: 

/« THIS PROCEDURE IMPLEMENTS THE TRANSFER COMMAND •/ 
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PROCEDURE; 

871 2 CALL SIO$GET$CHAR; 

872 2 MODE$8086 = TRUE; 

873 2 IF CHAR = 'X' THEN 

874 2 DO; 

875 3 MODE$8086 = FALSE; 

876 3 CALL SIO$GET$CHAR ; 

877 3 END; 

878 2 IF CHAR = ASEL THEN CALL SIO$GET$CHAR ; 
880 2 IF CHAR = 'S' THEN SAVE$M0DE = SERIAL; 

882 2 ELSE IF CHAR = 'P' THEN SAVE$MODE = PARALLEL; 

884 2 ELSE GOTO ERROR; 

885 2 CALL SIO$GET$CHAR; 

886 2 IF CHAR <> ',' THEN GOTO ERROR; 

888 2 CALL SIO$GET$CHAR; 

889 2 CALL SIO$WRITE$HEX$FILE; 

890 2 RETURN; 

891 2 END SIO$TRANSFER; 

892 1 SIO$LOAD: 

/• THIS PROCEDURE IMPLEMENTS THE LOAD COMMAND »/ 
PROCEDURE; 

893 2 CALL SIO$SCAN$BLANK; 

894 2 IF CHAR = 'S' THEN SAVE$MODE = SERIAL; 

896 2 ELSE IF CHAR = 'P 1 THEN SAVE$MODE = PARALLEL; 

898 2 ELSE GOTO ERROR; 

899 2 CALL SIO$GET$CHAR; 

900 2 IF CHAR = *,' THEN DO; 

902 3 CALL SIO$GET$CHAR; 

903 3 IF CHAR = ASCR THEN GOTO ERROR; 

905 3 END; 

906 2 ELSE IF CHAR <> ASCR THEN GOTO ERROR; 

CALL SIO$READ$HEX$FILE; 

909 2 RETURN; 

910 2 END SIO$LOAD; 

* COMMAND DISPATCH MAIN PROGRAM LOOP « 

911 1 DISABLE; 

912 1 MODE = SERIAL; 

/* THE FOLLOWING CODE DETERMINES THE BAUD RATE OF THE SERIAL 
INTERFACE EASED ON TWO 'U'S TYPED IN AT THE CONSOLE. IT 
INITIALIZES BOTH THE 8251A USART AND COUNTER 2 OF THE 8253 
INTERVAL TIMER */ 

CALL SIO$RESET$USART; 

OUTPUT(SIO$STAT$PORT) = SIO$CRT$MODE ; 
OUTPUT(IT$CONTROL$PORT) = IT$C2M3; 
DO WHILE TRUE; 

BRF = B9600; 

OUTPUT(SIO$STAT$PORT) = SIO$CRT$CMD; 

OUTPUT(IT$CTR2$PORT) = LOW(BRF); 

OUTPUT(IT$CTR2$P0RT) = HIGH(BRF); 

DO II = 1 TO 1000; 
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CALL SIO$MS$DELAY( 1 ) ; 
IF SIO$CHAR$RDY THEN 
DO; 

IF (CHAR := INPUT (SIO$DATA$PORT ) ) = 80H THEN 
DO; 

BRF = B1200; 
GOTO SBC$INIT5; 
END; 
CHAR = CHAR AND PARITY$MASK; 
DO I = TO 2; 

IF CHAR = BR$CHAR(I) THEN GOTO SBC$INIT5; 
ELSE BRF = 2*BRF; 
END; 

BRF = 2»BRF; 

0UTPUT(IT$CTR2$P0RT) = LOW(BRF); 
OUTPUT(IT$CTR2$P0RT) = HIGH(BRF); 
CALL SI0$MS$DELAY(120); 
CHAR = INPUT(SIO$DATA$P0RT) ; 
DO JJ = 1 TO 3000; 

CALL SI0$MS$DELAY(1 ) ; 
IF SIO$CHAR$RDY THEN 
DO; 

CHAR = INPUT(SIO$DATA$PORT) AND PARITY$MASK; 
DO I = TO 2; 

IF CHAR = BR$CHAR(I) THEN GOTO SBC$INIT5; 
ELSE BRF = 2«BRF; 
END; 

CALL SIO$RESET$USART; 

OUTPUT(SIO$STAT$PORT) = SIO$TTY$MODE ; 
CHAR = 0; 

OUTPUT(SIO$STAT$PORT) = SIO*TTY$CMD; 
BRF = B1 10; 
GOTO SBC$INIT5; 
END; 
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END; 
END; 



END; 



END; 



962 1 SBC$INIT5: 

OUTPUT(IT$CTR2$P0RT) = LOW(BRF); 

963 1 0UTPUT(IT$CTR2$P0RT) = HIGH(BRF); 

964 1 CALL SI0$MS$DELAY(200); 

965 1 CHAR = INPUT(SI0$DATA$PORT) ; 

966 1 CALL SIC$OUT$STRING(@SIO$SIGNON); 

/* THE FOLLOWING CODE INITIALIZES THE 8259A. THE STARTING ADDRESS 
OF ITS 20H BYTE VECTOR TABLE IS 80H. IT IS PROGRAMMED FOR 
THE FULLY NESTED MODE. ALL INTERRUPTS ARE SET UNMASKED. •/ 

967 1 OUTPUT(IC$PORTA) = IC$ICW1; 

968 1 OUTPUT(IC$PORTB) = IC$ICW2; 

969 1 OUTPUT(IC$PORTB) = IC$ICW4; 

970 1 OUTPUT(IC$PORTB) = IC$MASK; 

/« INITIALIZE USER'S REGISTERS «/ 

971 1 CS,SS,DS,ES,FL,IP = 0; 



973 


1 


974 


1 


975 


1 


976 


1 


977 


2 


978 


2 


979 


1 


980 


1 


981 


1 


982 


1 



PL/M-86 COMPILER ISBC 86/12 MONITOR PAGE 28 

972 1 SP = USER$INIT$SP; 

/* INITIALIZE INTERRUPT VECTORS */ 

CALL INIT$INT$VECTOR(@INT$VECTOR( 1 ) , . INTERRUPT 1 $ENTRY) ; 
CALL INIT$INT$VECT0R(gINT$VECT0R(2) , . INTERRUPT 3$ENTRY) ; 
CALL INIT$IST$VECT0R(§INT$VECT0R(3),-INTERRUPT3$ENTRY); 
DO I = 32 TO 39; 

CALL INIT$INT$VECTOR(gINT$VECT0R(I) , . INTERRUPT32$ENTR Y ) ; 
END; 

INT3$PTR = INT$VECT0R(3); /* SAVE VECTOR 3 •/ 
BRK1$FLAG,BRK2$FLAG,SWITCH$BAUD = FALSE; 

MONITOR$STACKFTR = STACKPTR ; 
MONITOR$STACKBASE = STACKBASE; 

983 1 NEXT$COMMAND: 

I* THIS IS THE PERPETUAL COMMAND LOOP WHICH DISPATCHES TO EACH 
COMMAND WHICH IS A SEPARATE PROCEDURE. •/ 

CALL SIO$CRLF; 
CALL SI0$0UT$CHAR(0) ; 
CALL SIO$OUT$CHAR( ' . ' ); 
IF SWITCH$BAUD THEN 

DO; 

/* BAUD RATE WAS CHANGED FOR LOAD OR TKANSrER, RESTORE 
ORIGINAL BAUD RATE. */ 

CALL SIO$SECOND$DELAY; 

SWITCH$BAUD = FALSE; 

CALL SIO$RESET$USART; 

OUTPUT(SIO$STAT$PORT) = SIO$CRT$MODE ; 

OUTPUT(IT$CONTROL$PORT) = IT$C2M3! 

0UTPUT(SIO$STAT$PORT) = SIO$CRT$CMD; 

0UTPUT(IT$CTR2$P0RT) = LOW(BRF); 

0UTPUT(IT$CTR2$P0RT) = HIGH(BRF); 

END; 

CALL SI0$GET$CHAR; 

DO 1=0 TO LAST(SIO$CMND); 

IF CHAR=SIO$CMND(I) THEN GOTO DISPATCH; 
END; 

GOTO ERROR; 
DISPATCH: 

LAST$COMMAND = I; 
DO CASE I; 

CALL SIO$EXAM$MEM; 

CALL SIO$EXAM$REG; 

CALL SIO$GO; 

CALL SIO$SINGLE$STEP; 

CALL SIO$MOVE; 

CALL SIO$DISPLAY; 

CALL SIO$COMPARE; 

CALL SIO$FIND; 

CALL SIO$HEX$ARITH; 

CALL SIO$INPUT; 

CALL SI0$OUTPUT; 

CALL SI0$READ; 
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CALL SI0$WRITE; 

CALL SIO$L0AD; 

CALL SIO$TRANSFER; 
END; 
GOTO NEXT$C0MMAND; 

ERROR: 

/* THIS ROUTINE HANDLES ALL ERRORS DETECTED BY THE MONITOR AND 
WILL OUTPUT THE ERROR PROMPT TO THE OUTPUT PORT-*/ 

MODE = SERIAL; 

IF BRK1$FLAG THEN 

DO; /* ERROR IN ENTERING BREAKPOINT 2 */ 

MEM0RY$BRK1 = BRK1$SAVE; 

BRK1$FLAG = FALSE; 

END; 
CALL SIO$OUT$CHAR('#' ) ! 
CALL SIO$MS$DELAY(200); 
GOTO NEXT$COMMAND; 

AFTER$INTERRUPT: 

/* THIS ROUTINE IS CALLED AFTER AN INTERRUPT TO DISPLAY THE CS:IP 
AND RESTORE BREAKPOINTED INSTRUCTION (S ) . •/ 

IF BRK1$FLAG THEN 
DO; 

IF BRK2$FLAG THEN 
DO; 

MEM0RY$BRK2 = BHK2$SAVE; 
BRK2$FLAG = FALSE; 
IF ((IP-1) AND O00FH)=(BRK2.OFF AND 000FH) AND 

(SHR(IP-1,4)+CS)=(SHR(BRK2.0FF,4)+BRK2.SEG) THEN 
DO; 
IP=IP-1 ; 

CALL SI0$0UT$STRING(gSI0$BREAK2$MSG) ; 
END; 
END; 
MEM0RY$BRK1 = BRK1$SAVE; 
BRK1$FLAG = FALSE; 
IF ((IP-1) AND 0O0FH) = (BRJC1.OFF AND OOOFH) AND 

(SHR(IP-1,4) + CS) = (SHR(BRKUOFF,4)+BRKnSEG) THEN 

DO; 

IP = IP - 1 ; 

CALL SI0$0UT$STRING(gSI0$BREAK1$MSG); 

END; 
END; 
CALL SI0$0UT$CHAR( '§' ); 
CALL SI0$0UT$W0RD(CS); 
CALL SIO$OUT$CHAR(': • ); 
CALL SIO$OUT$WORD(IP) ; 
CALL SIO$OUT$BLANK; 
CSIP.SEG = CS; 
CSIP.OFF = IP; 

CALL SIO$OUT$BYTE$PTR(MEMORY$CSIP$PTR); 
GOTO NEXT$COMMAND; 
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END MONITOR; 



/« END OF MODULE •/ 
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MODULE INFORMATION: 



CODE AREA SIZE = 1792H 6034D 

CONSTANT AREA SIZE = OOOOH OD 

VARIABLE AREA SIZE = 012DH 301D 

MAXIMUM STACK SIZE = 0042H 66D 
1647 LINES READ 
PROGRAM ERROR(S) 

END OF PL/M-86 COMPILATION 
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